Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  288 1458 (N05E62 L=132)  2788    346        6 ( 200/1372- 364/1571)  53.1 E71-E55 N00-N13
      2  419 1422 (N05E48 L=146)   571    117        2 ( 383/1368- 457/1469)  81.9 E50-E45 N01-N08
      3  349 1417 (N04E54 L=140)   319    110        1 ( 302/1372- 393/1448)  39.8 E56-E50 N00-N06
      4  840 1381 (N10E18 L=175)   411    132        1 ( 819/1315- 863/1439) -60.3 E20-E15 N06-N13
      5  212 1171 (S13E60 L=134)   461    149        2 ( 193/1106- 228/1237) -76.0 E62-E57 S16-S08
      6  107 1162 (S13E74 L=120)  2418    278        3 (  84/1087- 146/1216)  66.8 E78-E69 S17-S10
      7  165 1147 (S14E65 L=129)   539    119        3 ( 147/1097- 184/1194) -71.6 E67-E61 S17-S11
      8  309  943 (S25E46 L=147)  2339    447        4 ( 206/ 776- 421/1099)  52.3 E56-E38 S36-S14
      9 1248  907 (S09W15 L=209)   363     81        1 (1218/ 882-1284/ 934) -14.0 W13-W17 S10-S07
     10 1234  751 (S18W19 L=212)  1074    331        4 (1092/ 660-1334/ 878)  66.4 W12-W23 S25-S08
     11 1392  831 (S10W26 L=220)   284     88        3 (1356/ 805-1423/ 857)   0.0 W23-W28 S10-S08
     12  889  760 (S25E02 L=192)   606    135        1 ( 820/ 707- 943/ 813)  60.9 E05-W00 S29-S20
     13 1560  486 (S24W51 L=244)  3288    770        5 (1256/ 371-1847/ 593)  37.8 W35-W76 S39-S08
     14  530  549 (S47E26 L=168)   543     70        1 ( 496/ 520- 570/ 576) -15.9 E29-E22 S48-S44
     15 1288  525 (S29W30 L=224)   623    144        1 (1209/ 507-1353/ 549)  16.7 W24-W34 S31-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