Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  872 1429 (N29E11 L=240)   236     71        0 ( 835/1410- 914/1447) -11.3 E13-E08 N27-N30
      2  564 1268 (N18E31 L=220)   651    114        2 ( 539/1208- 589/1323)  90.0 E33-E29 N13-N21
      3 1313 1283 (N20W19 L=270)   237     62        0 (1281/1255-1331/1303) -45.0 W16-W20 N17-N20
      4 1405 1229 (N16W25 L=276)   426    121        2 (1357/1166-1432/1296) -76.0 W21-W26 N12-N20
      5 1120 1275 (N19W06 L=257)   319     92        0 (1083/1253-1155/1292) -21.8 W03-W08 N17-N20
      6 1274 1177 (N13W16 L=267)   443    158        1 (1213/1127-1330/1243)  32.0 W11-W19 N09-N17
      7  304 1194 (N12E52 L=199)   477    154        0 ( 257/1160- 341/1218) -18.4 E57-E48 N10-N13
      8 1137 1154 (N11W07 L=258)   223     70        0 (1106/1129-1184/1182) -26.6 W05-W09 N09-N13
      9 1782 1102 (N07W55 L=306)   386     70        1 (1762/1064-1797/1134) -76.0 W52-W56 N05-N09
     10 1401 1108 (N09W24 L=275)   271     75        1 (1360/1081-1436/1133) -31.0 W21-W26 N06-N10
     11  197  977 (S02E63 L=188)  1539    249        4 ( 141/ 952- 255/1015)  10.6 E71-E55 S03-N00
     12  577  947 (S02E29 L=222)   307    132        0 ( 545/ 896- 618/ 984)  45.0 E30-E25 S05-N00
     13 1217  805 (S10W12 L=263)   621    196        1 (1151/ 741-1279/ 886) -60.9 W08-W16 S14-S05
     14  876  850 (S08E09 L=242)   214     25        0 ( 852/ 836- 901/ 866) -33.7 E10-E07 S08-S06
     15  771  766 (S13E16 L=235)   559    117        3 ( 718/ 724- 847/ 808)  29.1 E19-E10 S15-S10
     16 1583  715 (S16W39 L=290)  1608    297        5 (1533/ 592-1635/ 780)  80.5 W34-W42 S24-S12
     17 1194  663 (S19W11 L=262)   775    275        1 (1104/ 597-1320/ 756)  35.5 W05-W19 S23-S13
     18  431  694 (S19E41 L=210)   412     90        0 ( 401/ 659- 468/ 739) -51.3 E43-E38 S20-S15
     19  641  564 (S27E27 L=224)   444    157        0 ( 596/ 533- 689/ 625)  32.0 E30-E22 S29-S22
     20  877  578 (S25E10 L=241)   237     76        0 ( 852/ 545- 913/ 606)  45.0 E11-E07 S27-S23
     21 1410  548 (S27W28 L=279)   355    105        0 (1367/ 532-1455/ 579) -15.9 W24-W31 S28-S25
     22  881  487 (S32E10 L=241)   323     67        1 ( 861/ 456- 910/ 521) -68.2 E11-E07 S34-S29
     23 1216  482 (S32W15 L=266)   336     78        0 (1178/ 456-1248/ 517)  45.0 W11-W16 S34-S29
  

    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