Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1772 1534 (N18W68 L=188)  1023     63        0 (1742/1495-1806/1564) -51.3 W65-W71 N15-N20
      2  516 1387 (N31E28 L= 92)  1095    224        0 ( 465/1292- 584/1479)  48.0 E32-E22 N24-N35
      3  861 1430 (N27E03 L=117)   500    188        2 ( 790/1354- 920/1479) -55.0 E07-W00 N21-N31
      4 1236 1433 (N21W20 L=140)  1315    430        2 (1039/1386-1400/1471) -17.7 W08-W31 N18-N25
      5  283 1300 (N29E49 L= 71)  1647    249        5 ( 180/1253- 406/1347) -17.1 E63-E37 N24-N33
      6  841 1189 (N13E08 L=112)   824    340        1 ( 748/1093- 896/1322)  53.1 E14-E03 N08-N21
      7 1539 1247 (N05W35 L=155)   214     53        1 (1515/1230-1566/1270) -56.3 W33-W36 N03-N06
      8 1557 1108 (S03W34 L=153)   435    175        0 (1539/1028-1570/1197)  63.4 W31-W35 S07-N02
      9  553 1123 (N14E27 L= 93)   286     68        0 ( 532/1103- 584/1158) -63.4 E28-E24 N12-N16
     10 1848 1015 (S13W57 L=177)  1138    184        2 (1806/ 936-1875/1109)  63.4 W52-W60 S17-S07
     11 1750  973 (S14W47 L=167)  1005    175        3 (1717/ 891-1792/1047)  71.6 W43-W51 S18-S09
     12 1928  931 (S20W68 L=188)  1148     68        2 (1902/ 892-1960/ 963)  78.7 W63-W75 S22-S17
     13  462  907 (N03E36 L= 84)   348    106        0 ( 403/ 893- 518/ 925)  -7.1 E40-E32 N01-N03
     14 1164  834 (S12W05 L=125)   185     80        0 (1126/ 810-1194/ 864)  21.8 W02-W07 S13-S10
     15  370  800 (S02E46 L= 74)   248     47        1 ( 348/ 770- 390/ 822) -90.0 E46-E43 S03-N00
     16  317  725 (S05E52 L= 68)   916    178        2 ( 270/ 651- 353/ 814) -83.7 E54-E50 S09-N00
     17  158  777 (S00E69 L= 51)   773     76        1 ( 132/ 741- 192/ 805)  11.3 E74-E62 S01-N01
     18  530  746 (S07E35 L= 85)   372     95        2 ( 503/ 703- 546/ 803)  51.3 E37-E32 S09-S04
     19 1354  767 (S20W16 L=136)   252     82        0 (1319/ 748-1395/ 789)   0.0 W13-W18 S20-S18
     20  293  667 (S08E57 L= 63)  1601    217        6 ( 245/ 586- 363/ 770) -76.0 E62-E52 S13-S01
     21  461  703 (S09E41 L= 79)   273     91        0 ( 426/ 685- 482/ 743)  26.6 E43-E39 S09-S06
     22 1490  681 (S27W24 L=144)   449    100        1 (1438/ 660-1550/ 696)  -6.3 W20-W29 S28-S25
     23  381  403 (S26E64 L= 55)  1022    120        1 ( 345/ 356- 421/ 471)  14.0 E78-E54 S28-S21
     24 1507  348 (S53W29 L=149)   345     44        1 (1487/ 323-1521/ 379) -78.7 W26-W30 S55-S50
     25 1272  262 (S55W04 L=123)  1241    211        1 (1177/ 213-1374/ 307)   5.7 E06-W14 S58-S52
  

    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