Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1801 (N52E23 L=164)   685    123        1 ( 911/1783-1041/1815)  26.6 E28-E17 N48-N54
      2 1443 1667 (N50W25 L=212)   373     39        0 (1425/1641-1460/1693)  59.0 W22-W27 N47-N52
      3  597 1599 (N29E42 L=145)  2321    357        3 ( 467/1509- 740/1690) -11.6 E61-E27 N24-N33
      4  713 1339 (N14E24 L=163)   378    167        0 ( 666/1266- 742/1389) -36.9 E28-E20 N10-N16
      5  206 1229 (N00E64 L=124)   711     71        1 ( 171/1202- 249/1253)  11.3 E69-E58 S01-N02
      6 1340 1224 (N16W17 L=204)   309    105        0 (1284/1211-1396/1236)  23.2 W13-W20 N14-N17
      7 1799 1123 (N17W54 L=241)   329     47        0 (1773/1097-1820/1146) -31.0 W51-W56 N15-N18
      8 1772 1012 (N10W52 L=239)  2089    320        4 (1729/ 862-1827/1120) -56.3 W46-W59 N01-N16
      9 1630  955 (N05W40 L=227)   914    209        2 (1613/ 846-1653/1051) -79.7 W38-W41 S01-N10
     10 1851  966 (N09W61 L=249)   550     69        0 (1831/ 938-1880/ 995) -26.6 W58-W65 N07-N10
     11  571  886 (S15E27 L=161)   379    115        2 ( 520/ 857- 622/ 910)  33.7 E29-E23 S17-S12
     12  806  730 (S21E09 L=178)  1230    466        1 ( 601/ 672- 949/ 839)  33.7 E23-E01 S27-S12
     13 1204  762 (S13W15 L=202)   237     80        1 (1162/ 742-1247/ 784)   0.0 W12-W17 S13-S11
     14 1754  643 (S12W60 L=248)  1842    287        0 (1680/ 534-1823/ 773)  79.4 W57-W63 S19-S03
     15 1002  256 (S53W17 L=204)   774    108        1 ( 964/ 218-1038/ 301) -35.0 W12-W22 S56-S48
  

    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