Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  903 1791 (N57W25 L=184)   332     32        1 ( 878/1773- 921/1809) -56.3 W22-W28 N55-N58
      2 1273 1771 (N41W50 L=208)   762    134        1 (1209/1735-1333/1801)  -7.6 W41-W57 N39-N42
      3 1497 1589 (N23W50 L=209)  1076    171        1 (1420/1562-1578/1625) -14.9 W44-W59 N20-N25
      4  713 1478 (N41E07 L=152)   323    120        1 ( 656/1468- 775/1490) -18.4 E11-E02 N39-N42
      5  579 1429 (N42E19 L=140)   423    101        1 ( 537/1401- 621/1466) -40.6 E22-E15 N38-N44
      6 1160 1411 (N23W19 L=178)   485    199        0 (1081/1376-1251/1452) -41.2 W15-W23 N18-N27
      7 1007 1242 (N18W05 L=164)   811    324        0 ( 879/1198-1166/1283) -16.4 E03-W14 N14-N20
      8 1588 1018 (S10W33 L=192)   969    354        2 (1494/ 864-1648/1140) -84.0 W29-W35 S20-S01
      9  403 1020 (N21E40 L=119)   280     75        0 ( 374/ 996- 434/1045) -45.0 E41-E37 N18-N22
     10  805 1014 (N11E13 L=146)   212     56        0 ( 775/ 995- 826/1039)  14.0 E14-E10 N09-N11
     11 1242  988 (S02W11 L=170)   185     77        0 (1202/ 974-1269/1006)   0.0 W08-W13 S02-N00
     12  795  962 (N08E15 L=144)   296    133        2 ( 757/ 937- 856/ 993)   0.0 E16-E10 N07-N09
     13  293  828 (N12E54 L=105)   347    113        0 ( 261/ 809- 337/ 854)  -7.1 E56-E48 N10-N13
     14 1563  703 (S28W25 L=183)   330    138        0 (1527/ 658-1607/ 766)  26.6 W21-W29 S30-S25
     15  889  413 (S26E27 L=132)  1351    305        5 ( 860/ 295- 922/ 574)  53.6 E35-E21 S34-S15
  

    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