Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  733 1809 (N39E44 L=329)   866     94        3 ( 692/1785- 780/1848) -17.1 E51-E38 N37-N42
      2  552 1798 (N36E62 L=311)   645     54        2 ( 534/1770- 568/1830) -39.8 E67-E57 N33-N39
      3 1011 1735 (N38E18 L=355)  1011    131        3 ( 951/1679-1050/1772) -28.6 E23-E12 N34-N41
      4 1331 1666 (N41W08 L= 21)   343     97        0 (1285/1654-1380/1679)  20.6 W04-W12 N38-N42
      5  395 1459 (N09E51 L=322)   710    127        0 ( 357/1411- 442/1513)  74.1 E53-E48 N06-N13
      6  709 1431 (N12E27 L=346)   383     98        1 ( 669/1398- 754/1464)   0.0 E29-E23 N10-N14
      7  934 1402 (N14E12 L=  1)   410    127        1 ( 877/1371- 983/1421)   0.0 E16-E08 N12-N15
      8 1796 1207 (N21W50 L= 63)   383     57        0 (1763/1188-1828/1223)   8.1 W46-W53 N20-N21
      9  169 1117 (S13E65 L=308)  1853    275        1 ( 118/1018- 231/1201) -42.5 E74-E56 S18-S07
     10 1560  976 (N01W33 L= 46)   221     97        0 (1543/ 931-1582/1023) -36.9 W31-W35 N00-N03
     11  195  788 (S33E64 L=309)  1203    130        1 ( 158/ 727- 222/ 853)  31.6 E74-E58 S36-S28
     12 1163  676 (S24W16 L= 29)   850    220        1 (1138/ 571-1193/ 783) -69.0 W13-W19 S30-S17
     13 1580  732 (S12W41 L= 54)   264     67        1 (1559/ 697-1594/ 769) -53.1 W39-W42 S13-S09
     14 1577  490 (S25W53 L= 66)  1495    346        1 (1454/ 400-1708/ 591)  59.5 W47-W59 S33-S16
     15 1341  468 (S33W36 L= 49)   724    125        2 (1280/ 445-1403/ 500)  45.0 W31-W38 S35-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