Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  608 1759 (N67E34 L=196)   560     52        2 ( 580/1736- 640/1777)  -4.8 E40-E26 N65-N69
      2  958 1614 (N45W09 L=238)   544    106        2 ( 899/1582-1003/1637) -20.6 W04-W12 N42-N48
      3 1745 1545 (N21W74 L=303)   989     66        1 (1727/1509-1761/1581)  15.3 W69-W81 N19-N22
      4 1615 1408 (N17W49 L=278)  1748    420        1 (1443/1344-1801/1460) -28.2 W37-W65 N08-N24
      5 1321 1329 (N19W25 L=254)   331    165        0 (1284/1266-1342/1381)  74.1 W22-W26 N15-N22
      6 1030 1321 (N24W06 L=235)   195     87        0 ( 994/1309-1079/1337) -21.8 W03-W08 N23-N25
      7  502 1191 (N25E32 L=197)  1436    340        2 ( 403/1066- 550/1299) -72.6 E41-E28 N16-N32
      8  662 1201 (N23E20 L=209)   297     98        0 ( 622/1176- 709/1233) -33.7 E23-E17 N20-N25
      9 1614 1157 (N03W40 L=269)   581    126        4 (1590/1087-1632/1214)  71.6 W38-W42 N00-N06
     10 1306 1154 (N09W19 L=249)   360    166        1 (1245/1121-1383/1176)  -6.3 W15-W24 N07-N10
     11  307  931 (N11E51 L=178)   394    107        1 ( 282/ 898- 352/ 959)  14.0 E54-E46 N08-N12
     12  445  657 (S07E45 L=184)   591    181        0 ( 372/ 604- 514/ 707) -37.9 E50-E40 S11-S03
     13  651  609 (S13E31 L=198)   262     70        0 ( 625/ 593- 690/ 634) -45.0 E32-E28 S14-S10
     14  525  499 (S19E45 L=184)   307     73        0 ( 499/ 467- 551/ 526)  23.2 E48-E41 S20-S16
     15  895  397 (S31E22 L=207)  1195    346        1 ( 772/ 308-1002/ 511)  25.6 E34-E11 S37-S24
  

    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