Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  562 1690 (N30E54 L= 69)   656    121        0 ( 546/1656- 598/1746) -24.8 E61-E48 N27-N34
      2 1464 1521 (N39W21 L=144)   274     29        1 (1443/1503-1488/1539)   0.0 W19-W23 N37-N40
      3  816 1425 (N18E22 L=102)   982    217        2 ( 752/1353- 876/1508) -38.7 E27-E16 N13-N22
      4 1828 1199 (N26W58 L=181)   923    173        0 (1765/1146-1885/1253) -14.0 W49-W66 N23-N28
      5  481 1168 (S04E37 L= 86)   789    138        3 ( 431/1133- 531/1201)  33.7 E40-E33 S06-N00
      6 1856 1015 (N15W62 L=185)  1493    203        5 (1819/ 934-1893/1109) -51.3 W56-W68 N10-N20
      7  896  943 (S09E06 L=118)  1150    359        0 ( 776/ 839-1014/1064)  59.5 E11-E01 S17-N00
      8 1215  825 (S09W15 L=139)   645    272        0 (1117/ 757-1286/ 910)  57.5 W10-W17 S14-S02
      9 1349  836 (S06W23 L=147)   215     42        0 (1331/ 812-1369/ 859)  71.6 W22-W24 S07-S04
     10 1233  753 (S13W18 L=142)   326    105        0 (1211/ 705-1262/ 800)  90.0 W17-W19 S16-S09
     11 1164  697 (S18W16 L=139)   364    151        0 (1094/ 666-1207/ 734)  -7.1 W10-W18 S19-S16
     12 1509  642 (S14W40 L=163)   546    207        2 (1445/ 581-1545/ 730)  78.7 W37-W41 S18-S08
     13 1010  664 (S23W07 L=130)   323     81        2 ( 985/ 628-1029/ 706) -78.7 W05-W07 S25-S20
     14 1766  649 (S08W63 L=187)   613     71        0 (1734/ 625-1791/ 684)  53.1 W60-W65 S09-S05
     15 1360  344 (S36W46 L=169)   350     55        1 (1333/ 328-1391/ 362)   9.5 W42-W48 S37-S35
  

    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