Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  956 1770 (N56E09 L=140)   517     83        0 ( 916/1751-1010/1784)   5.7 E12-E02 N53-N57
      2  496 1568 (N37E46 L=103)  2151    310        3 ( 375/1483- 640/1641) -12.2 E66-E29 N31-N42
      3 1660 1560 (N37W57 L=206)   617     60        0 (1630/1528-1690/1587)  15.3 W51-W62 N35-N39
      4  273 1482 (N30E68 L= 81)  1334    140        2 ( 244/1429- 313/1530) -15.9 E81-E59 N26-N32
      5 1740 1418 (N27W58 L=207)  1186    204        2 (1693/1320-1778/1512)  85.6 W54-W61 N20-N33
      6  985 1439 (N29E03 L=146)   949    228        0 ( 872/1396-1087/1471)  -8.1 E11-W03 N26-N31
      7  881 1110 (N08E09 L=140)   277     76        0 ( 853/1073- 901/1141) -53.1 E10-E07 N06-N10
      8  325  953 (S03E48 L=101)   411     75        0 ( 288/ 925- 360/ 983)  23.2 E51-E44 S04-N00
      9 1797  858 (S08W56 L=205)   757    154        0 (1781/ 781-1823/ 935) -63.4 W53-W60 S12-S02
     10  801  753 (S14E14 L=135)   448    127        2 ( 784/ 689- 822/ 816) -76.0 E14-E12 S17-S09
     11  882  762 (S13E09 L=140)   288     95        2 ( 837/ 738- 923/ 779)   0.0 E11-E06 S14-S11
     12 1450  558 (S26W31 L=179)  1075    205        0 (1412/ 502-1514/ 649) -55.0 W27-W37 S30-S20
     13  727  624 (S22E20 L=129)   275     97        0 ( 682/ 612- 778/ 634)   8.1 E22-E15 S23-S21
     14  526  417 (S38E42 L=107)   977    163        1 ( 470/ 372- 575/ 491)  30.5 E51-E33 S42-S32
     15  836  208 (S57E20 L=128)   542     29        1 ( 807/ 191- 858/ 230)  15.9 E24-E17 S59-S54
  

    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