Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  760 1871 (N39E58 L=350)   799     83        1 ( 745/1826- 774/1910) -24.0 E68-E50 N35-N43
      2  605 1692 (N21E50 L=358)   373    113        1 ( 574/1652- 650/1730) -80.5 E52-E48 N18-N24
      3  350 1563 (N08E65 L=343)  4104    314        5 ( 253/1464- 485/1663)  51.3 E73-E57 N00-N16
      4  689 1558 (N15E36 L= 12)   291     95        0 ( 658/1520- 729/1591) -23.2 E39-E32 N13-N16
      5  956 1247 (N04E10 L= 38)   310    130        0 ( 932/1191- 993/1308) -39.8 E12-E06 N01-N07
      6  151 1180 (S18E71 L=337)   976     73        3 ( 123/1148- 174/1214) -76.0 E77-E66 S19-S15
      7  410  899 (S29E37 L= 12)   297     46        0 ( 382/ 885- 443/ 918)   9.5 E39-E33 S30-S28
      8  939  750 (S24W03 L= 51)   207     88        0 ( 893/ 737- 982/ 766)  38.7 W00-W05 S25-S21
      9 1191  666 (S21W21 L= 69)  1091    368        1 (1074/ 529-1310/ 746)  76.0 W17-W24 S32-S12
     10  666  696 (S35E13 L= 36)   306    136        1 ( 597/ 687- 725/ 710)  29.1 E17-E08 S37-S32
     11  800  559 (S39W01 L= 49)   853    280        2 ( 688/ 493- 915/ 639)  58.0 E05-W06 S47-S30
     12 1153  234 (S48W48 L= 96)   485     58        1 (1125/ 203-1172/ 264) -15.3 W42-W53 S49-S45
     13 1296  179 (S44W69 L=117)   933     91        0 (1283/ 135-1312/ 222)  -6.8 W59-W84 S46-S42
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y