Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  633 1278 (N19E26 L=220)   508    133        1 ( 608/1207- 675/1318) -74.1 E28-E23 N14-N21
      2 1364 1211 (N15W22 L=268)   456    216        0 (1309/1134-1398/1305)  59.0 W17-W24 N10-N20
      3 1194 1278 (N19W11 L=257)   209     58        0 (1161/1262-1226/1293)   0.0 W08-W13 N18-N20
      4  359 1187 (N12E47 L=199)   342    130        0 ( 310/1161- 398/1210) -20.6 E51-E42 N10-N13
      5 1206 1171 (N12W11 L=257)   283    101        1 (1172/1132-1262/1205) -38.7 W09-W14 N10-N14
      6 1824 1112 (N08W59 L=305)   411     44        0 (1808/1082-1841/1138) -76.0 W57-W61 N05-N09
      7  600  974 (S00E27 L=219)   312     89        0 ( 575/ 935- 616/1019)  76.0 E28-E25 S02-N02
      8  234  969 (S02E58 L=188)  1257    214        1 ( 180/ 943- 298/1003)   8.7 E64-E51 S03-N00
      9 1250  845 (S08W14 L=260)   229     86        0 (1230/ 803-1276/ 875) -78.7 W12-W15 S10-S05
     10 1331  774 (S12W20 L=266)   254     92        1 (1297/ 745-1356/ 827) -59.0 W17-W21 S13-S08
     11 1635  700 (S17W43 L=289)  1339    202        5 (1591/ 597-1671/ 761)  79.7 W38-W46 S24-S13
     12  943  571 (S26E05 L=241)   257     75        0 ( 917/ 535- 978/ 602)  45.0 E07-E02 S28-S23
     13  676  550 (S28E24 L=222)   278     84        0 ( 638/ 535- 713/ 566)   9.5 E27-E21 S28-S26
     14  954  479 (S32E05 L=241)   263     61        0 ( 922/ 458- 979/ 506) -36.9 E06-E02 S33-S30
  

    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