Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1372 1348 (N16W30 L=211)   363     87        1 (1333/1315-1404/1381) -78.7 W27-W31 N13-N18
      2  959 1352 (N27W05 L=186)   345    117        1 ( 908/1319-1017/1374)  -8.1 W01-W08 N25-N28
      3  416 1280 (N36E37 L=145)  1334    348        0 ( 310/1194- 551/1345)   9.9 E47-E24 N32-N38
      4  609 1296 (N33E20 L=161)   325     69        0 ( 577/1275- 644/1321) -31.0 E22-E17 N31-N35
      5 1772 1254 (S01W56 L=237)   408     45        2 (1743/1233-1796/1273) -26.6 W53-W58 S02-N00
      6 1401 1164 (N05W25 L=207)   414    118        1 (1365/1124-1442/1226)  29.7 W22-W29 N03-N07
      7 1429 1008 (S04W23 L=204)   651    165        2 (1382/ 944-1463/1081) -90.0 W21-W24 S08-N01
      8 1858  962 (S21W57 L=238)  1170    208        0 (1813/ 872-1912/1032)  23.2 W50-W66 S24-S17
      9 1883  829 (S30W61 L=242)   835    112        0 (1852/ 777-1908/ 884)  39.8 W56-W65 S33-S26
     10 1309  643 (S22W07 L=189)   942    377        1 (1143/ 567-1399/ 752)   9.0 E04-W15 S24-S18
     11  916  646 (S12E16 L=166)   227     94        0 ( 882/ 626- 957/ 683) -59.0 E17-E13 S13-S08
     12 1486  624 (S29W19 L=200)   332    104        0 (1457/ 582-1521/ 668)  31.0 W15-W21 S31-S26
     13 1686  624 (S36W36 L=217)   464     88        0 (1663/ 582-1712/ 665)  38.7 W33-W38 S38-S34
     14  451  481 (S12E54 L=128)   933    157        3 ( 386/ 431- 505/ 524) -53.1 E58-E50 S16-S08
     15  918  384 (S29E25 L=156)   831    255        2 ( 844/ 291-1013/ 437)  12.5 E35-E17 S33-S26
  

    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