Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  802 1280 (N19E15 L=220)   527    101        3 ( 766/1249- 844/1320) -26.6 E17-E11 N17-N21
      2 1534 1250 (N17W34 L=269)   505    178        1 (1504/1168-1557/1316)  73.3 W32-W36 N11-N21
      3 1360 1281 (N19W22 L=257)   284     74        1 (1323/1258-1401/1302)   9.5 W19-W25 N17-N20
      4 1418 1155 (N11W25 L=260)   465    149        0 (1359/1124-1491/1199) -18.4 W21-W30 N09-N14
      5 1631 1127 (N09W41 L=276)   334     94        1 (1610/1098-1662/1165) -76.0 W39-W43 N07-N11
      6 1599 1030 (N03W38 L=273)   239     56        0 (1572/1007-1625/1059)  21.8 W35-W40 N01-N05
      7  351  955 (S02E46 L=189)  1334    251        3 ( 279/ 894- 434/1015)  -4.4 E53-E39 S05-N01
      8  778  976 (N00E15 L=220)   276     71        0 ( 752/ 936- 794/1008) -90.0 E16-E14 S02-N02
      9 1426  848 (S08W26 L=261)   223     84        0 (1407/ 815-1459/ 877)  53.1 W24-W27 S09-S05
     10 1750  777 (S13W52 L=287)  1009    116        2 (1715/ 718-1784/ 846)  76.0 W49-W55 S16-S08
     11  992  745 (S14E02 L=233)   206     37        1 ( 972/ 726-1008/ 771)  56.3 E03-W00 S15-S12
     12  648  668 (S19E25 L=210)   404    113        1 ( 611/ 611- 679/ 711) -74.1 E27-E22 S23-S16
     13 1625  582 (S26W45 L=280)   454     91        0 (1588/ 565-1661/ 605)   9.5 W41-W47 S26-S24
     14  299  534 (S31E59 L=176)   558    114        1 ( 285/ 504- 325/ 560)  63.4 E61-E55 S32-S28
     15 1074  406 (S38W04 L=239)   436     86        0 (1028/ 378-1113/ 437)  33.7 W00-W06 S40-S35
  

    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