Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  837 1571 (N45W03 L= 54)   283     71        0 ( 820/1535- 852/1606)  38.7 W00-W05 N42-N47
      2  347 1501 (N53E52 L=359)   493     70        0 ( 312/1482- 387/1517)  -4.4 E58-E45 N51-N53
      3 1094 1275 (N20W10 L= 62)   196     65        2 (1065/1244-1113/1304)  21.8 W07-W12 N18-N21
      4  965 1237 (N21W02 L= 53)   211    133        0 ( 909/1211-1012/1254) -18.4 E02-W04 N18-N22
      5  178 1101 (N28E66 L=346)   596     78        1 ( 150/1079- 210/1126) -18.4 E70-E60 N26-N29
      6  765  939 (N08E17 L= 34)  2076    548        5 ( 694/ 685- 821/1119)  63.4 E26-E11 S05-N19
      7 1783  882 (S22W48 L= 99)  3589    656        6 (1567/ 665-1918/1100)  18.4 W26-W69 S30-S12
      8  490  954 (N14E35 L= 17)   408    187        0 ( 461/ 904- 559/ 987)   0.0 E37-E29 N11-N16
      9  190  914 (N17E65 L=347)   445    142        0 ( 175/ 856- 222/ 984) -63.4 E66-E61 N12-N20
     10 1607  830 (S19W32 L= 83)  1150    246        1 (1547/ 724-1671/ 913)  30.3 W25-W38 S24-S15
     11  440  873 (N11E40 L= 11)   251     51        2 ( 418/ 855- 466/ 902) -71.6 E42-E38 N09-N12
     12 1824  729 (S34W54 L=105)   656     90        1 (1786/ 697-1852/ 764)  12.5 W48-W57 S35-S31
     13  931  535 (S19E18 L= 33)   259     78        1 ( 888/ 519- 965/ 548) -26.6 E20-E16 S21-S18
     14 1146  347 (S39E11 L= 40)  1560    306        2 (1050/ 259-1216/ 466)  32.3 E22-E02 S43-S31
     15  858  376 (S29E29 L= 22)   378     88        0 ( 812/ 359- 899/ 397) -38.7 E31-E26 S30-S26
  

    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