Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1267 1439 (N23W05 L=221)   229     89        0 (1229/1412-1310/1468)  -9.5 W02-W08 N21-N23
      2  552 1415 (N06E38 L=178)   678    143        2 ( 489/1360- 606/1460)  58.0 E40-E34 N01-N09
      3  720 1410 (N09E27 L=190)   419    156        0 ( 655/1360- 786/1443) -11.3 E31-E21 N06-N09
      4 1300 1311 (N16W10 L=226)   717    212        2 (1234/1230-1369/1394) -45.0 W04-W14 N11-N19
      5 1912 1214 (N29W65 L=282)   821     80        1 (1895/1174-1928/1253) -68.2 W61-W68 N26-N31
      6 1653 1201 (N18W35 L=251)   333     81        0 (1632/1165-1675/1242) -53.1 W33-W37 N16-N21
      7  308 1192 (S11E51 L=165)   325     68        1 ( 292/1157- 327/1225)  90.0 E52-E49 S12-S08
      8  183 1124 (S16E64 L=153)   878    157        2 ( 159/1035- 205/1190)  77.5 E66-E61 S21-S12
      9 1725 1121 (N16W42 L=259)   531     91        2 (1679/1099-1775/1141)  12.5 W38-W47 N14-N17
     10  306  840 (S32E48 L=168)   335     62        0 ( 288/ 813- 330/ 866) -71.6 E50-E45 S33-S30
     11  850  800 (S24E05 L=211)   410    199        1 ( 760/ 784- 953/ 821)  15.3 E11-W00 S25-S21
     12  477  662 (S40E31 L=185)   823    132        3 ( 417/ 619- 532/ 721)  20.0 E37-E26 S44-S36
     13 1750  551 (S14W66 L=282)   611     88        1 (1721/ 506-1770/ 581) -45.0 W62-W69 S16-S12
  

    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