Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  465 1634 (N15E56 L= 59)  1077    186        3 ( 406/1574- 528/1700)  77.5 E59-E52 N10-N20
      2  751 1580 (N18E33 L= 82)   887    258        0 ( 728/1466- 785/1676) -58.4 E36-E27 N11-N24
      3 1120 1590 (N29E12 L=103)   333    113        0 (1085/1541-1147/1621) -26.6 E14-E08 N26-N30
      4  363 1429 (N00E54 L= 61)   750    214        0 ( 300/1383- 417/1465)   0.0 E62-E48 S01-N01
      5  924 1428 (N13E17 L= 98)   239     61        0 ( 898/1396- 949/1457)  78.7 E17-E16 N10-N15
      6  700 1225 (S04E24 L= 91)   832    189        0 ( 638/1137- 741/1312) -48.4 E29-E20 S09-N00
      7  229 1001 (S27E54 L= 61)  3505    491        7 ( 120/ 843- 305/1184)  61.6 E64-E49 S38-S14
      8 1490 1060 (N09W25 L=140)   266     71        1 (1457/1046-1533/1079)  21.8 W23-W28 N07-N09
      9  721  991 (S16E16 L= 99)   381     95        0 ( 670/ 948- 757/1020)  -8.1 E20-E13 S18-S15
     10 1646  939 (N07W39 L=154)   562    145        0 (1592/ 891-1702/ 981)  53.1 W36-W42 N02-N10
     11  802  878 (S21E09 L=106)   558    117        2 ( 730/ 815- 871/ 936)  63.4 E11-E05 S25-S15
     12 1545  781 (S04W37 L=152)   235     70        0 (1512/ 752-1578/ 799)  63.4 W35-W39 S06-S02
     13 1171  526 (S30W25 L=140)  1066    214        2 (1072/ 493-1268/ 575)  42.0 W19-W29 S33-S24
     14 1682  455 (S16W65 L=180)  1017    227        1 (1646/ 418-1731/ 487)  63.4 W61-W70 S18-S12
     15 1236  250 (S44W47 L=162)   525    100        1 (1209/ 226-1261/ 280) -68.2 W45-W50 S45-S40
  

    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