Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1468 1682 (N29W55 L=238)   915    197        0 (1377/1660-1560/1706) -29.7 W48-W62 N24-N32
      2 1142 1673 (N40W32 L=214)   279     68        0 (1111/1651-1180/1690)   0.0 W28-W35 N38-N40
      3 1663 1543 (N15W61 L=243)   382     66        0 (1629/1527-1697/1556) -31.0 W57-W63 N12-N16
      4 1244 1443 (N23W26 L=208)   357     94        1 (1192/1419-1281/1458) -18.4 W22-W28 N20-N24
      5  674 1082 (N18E19 L=164)   691    254        1 ( 566/1047- 803/1108) -17.4 E26-E10 N14-N20
      6 1147  937 (S02W04 L=187)   284    121        1 (1081/ 922-1206/ 952) -29.7 W00-W07 S04-N00
      7  516  901 (N11E33 L=149)   215     56        0 ( 498/ 868- 532/ 928)  56.3 E34-E32 N09-N12
      8 1636  858 (S21W33 L=215)   485    137        0 (1607/ 791-1661/ 917)  45.0 W29-W35 S24-S17
      9 1282  875 (S09W10 L=193)   276     47        1 (1258/ 844-1298/ 910) -90.0 W09-W11 S11-S06
     10  646  803 (N03E27 L=155)   371    144        0 ( 615/ 738- 669/ 867) -90.0 E28-E26 S01-N07
     11  185  779 (N11E68 L=114)  1806    141        4 ( 152/ 711- 213/ 849)  53.1 E73-E64 N06-N14
     12  469  814 (N08E39 L=144)   368     63        2 ( 436/ 794- 504/ 833) -21.8 E41-E36 N06-N08
     13  614  330 (S25E51 L=132)  1340    219        2 ( 570/ 230- 654/ 435)  54.8 E59-E46 S33-S16
     14 1490  364 (S52W13 L=196)  1152    134        1 (1421/ 337-1560/ 398) -14.9 W06-W21 S53-S48
  

    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