Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  863 1824 (N39E43 L= 65)   415     92        0 ( 833/1802- 903/1853) -11.3 E48-E38 N37-N40
      2 1001 1619 (N28E20 L= 88)   758    185        2 ( 955/1544-1036/1702) -39.3 E26-E15 N23-N32
      3  638 1529 (N12E38 L= 70)   365    103        2 ( 618/1480- 662/1581) -66.8 E40-E36 N09-N16
      4  860 1414 (N11E20 L= 88)  1065    475        8 ( 705/1308-1006/1517)  -7.1 E33-E09 N07-N14
      5 1286 1325 (N18W06 L=115)   421    164        0 (1225/1282-1336/1386)  71.6 W03-W08 N14-N23
      6 1404 1173 (N13W17 L=125)   211    115        0 (1382/1124-1429/1214)  90.0 W16-W18 N09-N15
      7 1827  782 (N06W62 L=170)  1049    126        4 (1791/ 732-1866/ 824)  60.3 W58-W66 N02-N09
      8  936  686 (S27W05 L=113)   561    121        1 ( 889/ 654- 996/ 708)  26.6 W01-W08 S29-S24
      9  421  577 (S50E34 L= 74)   514     90        0 ( 396/ 552- 459/ 615) -45.0 E37-E29 S52-S47
     10 1388  418 (S28W46 L=154)  1158    371        2 (1260/ 356-1512/ 542)  67.6 W39-W49 S34-S17
     11  971  497 (S37W15 L=123)   301     93        0 ( 937/ 460-1011/ 532)  80.5 W13-W15 S40-S34
     12 1129  466 (S34W26 L=134)   802    330        1 (1000/ 399-1264/ 520)  53.7 W21-W32 S42-S27
     13 1377  490 (S24W40 L=148)   381     76        2 (1341/ 474-1418/ 513)  45.0 W37-W42 S26-S22
     14 1667  434 (S17W69 L=177)   568     65        0 (1636/ 416-1695/ 455)  26.6 W64-W71 S18-S15
  

    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