Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  940 1802 (N53E25 L=197)   352     67        2 ( 917/1781- 959/1820) -26.6 E28-E22 N51-N55
      2  401 1441 (N18E51 L=171)   765    202        2 ( 380/1346- 425/1518) -61.4 E53-E47 N11-N22
      3 1285 1464 (N32W12 L=234)   280     77        1 (1259/1437-1320/1486)  45.0 W10-W14 N29-N33
      4 1388 1423 (N30W20 L=242)   420     91        0 (1351/1378-1426/1460) -45.0 W16-W22 N27-N32
      5 1111 1404 (N25W01 L=222)   236     95        1 (1094/1359-1132/1452)  80.5 W00-W01 N22-N28
      6 1719  886 (N01W49 L=271)  5197    957       16 (1632/ 564-1810/1172) -82.5 W39-W60 S19-N19
      7  711 1115 (N02E20 L=201)   230     78        0 ( 669/1098- 748/1144) -74.6 E23-E18 N00-N04
      8  223  907 (S17E57 L=165)  1568    304        6 ( 190/ 800- 257/1001)  77.0 E61-E53 S24-S11
      9  176  874 (S20E63 L=159)  1508    170        2 ( 152/ 814- 207/ 923)  74.1 E66-E59 S23-S16
     10 1437  723 (S13W31 L=252)  1091    272        1 (1330/ 648-1538/ 807)  45.0 W24-W36 S18-S06
     11  641  768 (S20E22 L=200)   235    104        0 ( 599/ 739- 692/ 802) -15.9 E24-E17 S21-S18
     12 1135  774 (S13W10 L=232)   252     99        0 (1092/ 753-1190/ 793)  33.7 W07-W13 S15-S11
     13 1490  663 (S16W36 L=258)   721    149        3 (1424/ 635-1564/ 691)  21.8 W31-W41 S17-S13
     14  948  578 (S28W01 L=223)   334     60        0 ( 921/ 554- 977/ 607)  63.4 W00-W02 S30-S26
     15 1463  423 (S32W43 L=265)   736    141        1 (1392/ 406-1517/ 448)  26.6 W37-W47 S34-S29
  

    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