Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  739 1782 (N32E48 L=230)   624    119        0 ( 702/1733- 770/1829) -60.9 E52-E45 N27-N36
      2 1075 1697 (N36E20 L=259)  2250    420        3 ( 937/1556-1160/1771) -17.7 E30-E08 N28-N41
      3  544 1697 (N21E56 L=222)  1298    168        2 ( 483/1652- 597/1762) -66.0 E61-E53 N17-N26
      4  601 1670 (N21E49 L=229)   464     48        1 ( 575/1651- 635/1692)   9.5 E52-E46 N19-N21
      5  739 1604 (N20E36 L=243)   584    146        0 ( 722/1523- 758/1661) -56.3 E38-E32 N14-N23
      6  488 1614 (N15E55 L=224)   724     87        1 ( 451/1587- 525/1642)  -7.1 E58-E50 N13-N16
      7  341 1299 (S07E52 L=227)   393      0       -1 ( 327/1269- 356/1331) -76.0 E53-E49 S09-S05
      8  173 1149 (S19E67 L=212)  6715    430        6 (  94/ 957- 223/1308)  61.4 E85-E61 S31-S09
      9  330 1249 (S10E51 L=227)   349     33        1 ( 304/1229- 353/1268)  26.6 E53-E48 S11-S09
     10  279 1173 (S16E54 L=224)   685     64        2 ( 252/1138- 312/1209) -45.0 E56-E50 S17-S13
     11 1644  970 (N10W39 L=317)   990    276        0 (1622/ 853-1670/1113) -60.3 W33-W42 N03-N17
     12  317  762 (S40E45 L=233)  1021    150        1 ( 266/ 711- 377/ 790)  26.6 E52-E38 S44-S36
     13 1351  729 (S12W27 L=306)   513    176        0 (1293/ 695-1425/ 755)  29.7 W25-W32 S15-S09
     14  804  586 (S37E00 L=278)   249      7        0 ( 783/ 566- 824/ 605)   0.0 E01-W01 S38-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