Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1047 1384 (N14E08 L=253)   713    312        0 ( 987/1260-1103/1517) -42.9 E15-E01 N07-N20
      2 1452 1460 (N30W14 L=275)   314     59        1 (1424/1433-1481/1480)  14.0 W12-W16 N28-N31
      3  165 1257 (S12E69 L=192)   532     85        1 ( 144/1213- 185/1289)  90.0 E70-E65 S14-S09
      4  221 1150 (S18E58 L=203)   769    136        2 ( 197/1110- 249/1204) -71.6 E61-E54 S20-S14
      5  286 1092 (S20E50 L=211)  1134    384        5 ( 211/ 986- 366/1199)  61.9 E55-E45 S27-S12
      6 1657 1038 (N12W37 L=298)   250     61        0 (1627/1017-1685/1055)   0.0 W34-W39 N10-N12
      7  257  924 (S31E50 L=211)   602    145        0 ( 214/ 901- 313/ 957)  -5.7 E54-E44 S31-S29
      8  874  905 (S17E05 L=255)   810    295        1 ( 760/ 867- 999/ 929)  12.1 E12-W02 S20-S15
      9  531  883 (S27E27 L=234)   353    139        0 ( 472/ 862- 596/ 904)  18.4 E31-E22 S28-S25
     10 1109  723 (S21W13 L=274)  1367    504        0 ( 867/ 618-1306/ 795)  14.0 W00-W28 S28-S16
     11 1502  505 (S21W46 L=307)   375    123        0 (1477/ 462-1528/ 547) -20.6 W42-W50 S22-S19
     12 1655  516 (S15W58 L=319)   440     82        1 (1634/ 485-1675/ 547) -76.0 W56-W61 S17-S13
     13 1655  452 (S18W62 L=323)   508    102        2 (1629/ 422-1689/ 480)  68.2 W59-W64 S20-S15
     14 1208  407 (S36W33 L=294)   330     74        1 (1176/ 378-1236/ 438)  -8.1 W29-W36 S37-S34
  

    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