Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1139 1600 (N40W01 L=180)   588    133        1 (1080/1566-1200/1637) -18.4 E03-W06 N38-N42
      2 1328 1243 (N18W17 L=195)   266    151        0 (1302/1183-1361/1310) -66.8 W15-W19 N14-N21
      3 1275 1232 (N17W14 L=192)   258    103        1 (1245/1194-1318/1267) -31.0 W11-W16 N14-N18
      4  188  972 (S11E63 L=115)  2769    261        5 ( 127/ 869- 266/1050)  27.6 E77-E54 S18-S05
      5 1810  872 (S00W59 L=238)   432     79        0 (1771/ 847-1848/ 896)  -5.7 W54-W64 S01-N00
      6 1560  626 (S18W42 L=221)   299     68        4 (1528/ 599-1594/ 649)  21.8 W39-W44 S19-S16
      7 1523  520 (S25W43 L=221)  1057    162        3 (1452/ 495-1596/ 551)  20.0 W37-W49 S27-S23
      8 1088  465 (S34W12 L=190)   484    147        0 (1026/ 447-1157/ 483)  12.5 W07-W16 S35-S32
  

    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