Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  923 1804 (N38E34 L=101)  1185    180        2 ( 857/1758-1015/1831)  65.6 E37-E29 N32-N43
      2 1000 1601 (N25E18 L=117)   248     60        0 ( 987/1569-1012/1637) -53.1 E19-E16 N23-N28
      3 1553 1385 (N29W23 L=157)   613    183        0 (1523/1309-1594/1470) -48.8 W19-W26 N25-N33
      4  794 1402 (N08E23 L=112)   553    169        0 ( 714/1388- 879/1418)  21.8 E27-E17 N06-N10
      5  252 1160 (S17E55 L= 79)  1117    225        4 ( 208/1062- 293/1242)  70.0 E58-E52 S22-S11
      6  741 1160 (S07E19 L=115)   337    103        0 ( 710/1118- 775/1204) -38.7 E21-E16 S08-S04
      7  514 1168 (S11E34 L=101)   392     92        0 ( 485/1126- 548/1201)  90.0 E35-E31 S13-S08
      8 1853 1026 (N18W55 L=190)   375     33        0 (1837/1002-1873/1054) -45.0 W53-W57 N16-N19
      9 1678 1018 (N11W39 L=174)   390     54        3 (1650/ 993-1707/1047)  53.1 W36-W40 N09-N13
     10  766  997 (S15E14 L=121)   899    262        3 ( 672/ 942- 889/1046)  15.9 E20-E06 S18-S11
     11 1707  912 (N06W44 L=179)   384     83        1 (1670/ 895-1739/ 939)  18.4 W40-W46 N04-N08
     12 1786  905 (N09W51 L=186)   480     82        2 (1759/ 870-1830/ 938) -18.4 W48-W55 N07-N10
     13  988  628 (S30W09 L=144)   262     50        0 ( 958/ 611-1016/ 646)  33.7 W07-W11 S31-S28
     14 1597  555 (S15W51 L=186)  1250    296        1 (1479/ 517-1730/ 614)  40.9 W42-W59 S20-S07
     15 1331  458 (S29W38 L=173)   256     27        1 (1313/ 436-1348/ 481) -71.6 W36-W39 S30-S27
  

    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