Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1452 1563 (N42W21 L=301)   472     90        1 (1408/1530-1490/1590) -15.9 W17-W24 N39-N43
      2  625 1375 (N13E32 L=248)  1847    448        4 ( 506/1263- 711/1525)  78.1 E37-E26 N04-N23
      3  322 1389 (N09E56 L=223)  1149    253        1 ( 301/1277- 356/1513) -65.0 E60-E52 N01-N16
      4 1022 1439 (N24E08 L=272)   658    144        2 ( 968/1370-1064/1497) -45.0 E12-E04 N19-N26
      5  508 1387 (N12E40 L=239)   526     97        2 ( 474/1344- 542/1427) -38.7 E43-E37 N09-N13
      6  652 1303 (N09E28 L=252)   236     58        0 ( 629/1284- 682/1321)   0.0 E29-E25 N07-N09
      7  691 1229 (N05E24 L=256)   204    100        0 ( 658/1193- 728/1247)  45.0 E25-E21 N02-N06
      8 1847 1125 (N20W59 L=339)   643    101        0 (1830/1071-1861/1169) -80.5 W57-W61 N16-N22
      9  483 1007 (S11E34 L=246)  1146    332        2 ( 430/ 867- 558/1145)  72.5 E36-E30 S20-S01
     10 1707 1088 (N15W44 L=324)   288     57        0 (1686/1066-1726/1118)  53.1 W42-W45 N13-N17
     11  628  934 (S13E23 L=257)   222     33        1 ( 604/ 917- 653/ 950)   0.0 E24-E20 S14-S12
     12  935  819 (S15E02 L=278)   632    234        0 ( 826/ 747-1020/ 874) -13.0 E09-W04 S17-S12
     13 1602  803 (S04W41 L=321)   522    141        0 (1572/ 737-1624/ 854) -56.3 W37-W42 S07-N00
     14 1680  505 (S20W61 L=341)   468     84        2 (1653/ 490-1733/ 527)  12.5 W57-W68 S21-S18
     15  477  389 (S55E39 L=240)   416     46        0 ( 451/ 365- 503/ 413) -31.0 E43-E36 S56-S53
  

    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