Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  780 1676 (N46E24 L=127)  2893    439        6 ( 650/1584- 931/1730)  17.7 E34-E10 N38-N50
      2 1149 1629 (N44W09 L=160)   553    133        1 (1112/1580-1196/1661)  45.0 W05-W13 N39-N46
      3 1559 1539 (N37W42 L=194)   382     89        1 (1526/1525-1595/1557)   8.1 W38-W45 N36-N38
      4  720 1345 (N22E21 L=130)   274     93        1 ( 693/1305- 747/1386) -51.3 E23-E19 N19-N24
      5  792 1320 (N21E16 L=135)   481     83        2 ( 762/1292- 834/1363) -38.7 E18-E13 N19-N23
      6  329 1212 (N12E50 L=102)   565    127        0 ( 309/1159- 354/1265) -54.5 E52-E47 N08-N15
      7  724 1227 (N15E20 L=132)   812    196        2 ( 644/1195- 835/1249)   4.4 E25-E12 N12-N16
      8  828 1177 (N12E13 L=139)   279     42        0 ( 814/1145- 842/1210)  78.7 E13-E11 N09-N14
      9  681 1139 (N09E22 L=129)   725    192        1 ( 618/1095- 778/1200) -24.4 E26-E15 N06-N12
     10 1054  892 (S05W02 L=154)   294    104        1 (1036/ 839-1067/ 951)  90.0 W01-W02 S08-S01
     11  215  794 (S15E61 L= 90)   893    146        2 ( 180/ 759- 241/ 841) -51.3 E65-E57 S17-S12
     12  400  450 (S38E51 L=100)  1541    352        1 ( 342/ 398- 459/ 505)  30.5 E61-E43 S43-S33
     13 1155  381 (S40W12 L=164)  1243    297        2 (1017/ 342-1328/ 422)  11.8 W01-W25 S43-S36
  

    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