Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  372 1498 (N25E50 L=  4)  1759    373        4 ( 296/1414- 463/1570) -32.3 E60-E40 N18-N30
      2  836 1473 (N23E14 L= 39)   248     38        0 ( 807/1458- 866/1491) -14.0 E16-E12 N22-N24
      3 1082 1427 (N21W02 L= 56)   291     50        2 (1053/1405-1116/1450) -26.6 W00-W04 N19-N22
      4  870 1361 (N16E11 L= 43)   313    126        1 ( 831/1304- 902/1414) -54.5 E13-E08 N12-N19
      5  815 1217 (N07E13 L= 40)   369    125        1 ( 776/1168- 863/1274) -45.0 E16-E10 N03-N10
      6 1735 1179 (N09W48 L=102)   402    130        3 (1699/1151-1770/1200)  23.2 W44-W51 N07-N10
      7  548 1136 (N02E30 L= 23)   248     73        0 ( 514/1103- 586/1161)  21.8 E32-E27 N00-N03
      8 1633 1063 (N01W39 L= 93)   577     80        2 (1599/1026-1672/1106)  63.4 W36-W42 S01-N03
      9 1560 1073 (N01W34 L= 87)   408     95        1 (1518/1049-1596/1099)  -9.5 W30-W36 N00-N02
     10 1745  977 (S03W49 L=103)   519    136        1 (1703/ 950-1788/1003)  -7.1 W45-W53 S04-S01
     11  265  840 (S16E54 L=360)   511    170        1 ( 218/ 807- 299/ 896)  35.5 E58-E50 S18-S12
     12 1759  754 (S16W54 L=107)  2893    732       12 (1659/ 666-1869/ 852)  42.5 W43-W66 S21-S09
     13 1436  795 (S16W28 L= 81)   362    175        0 (1394/ 735-1488/ 851)   0.0 W24-W31 S19-S12
     14  384  673 (S27E45 L=  8)   714    251        0 ( 328/ 598- 425/ 759)  45.0 E52-E40 S31-S21
     15  595  603 (S32E29 L= 24)  2101    615        4 ( 426/ 448- 785/ 759)  32.9 E48-E14 S42-S20
     16 1221  738 (S21W14 L= 67)   278     90        0 (1170/ 724-1269/ 756)  18.4 W10-W16 S21-S19
     17 1472  652 (S25W32 L= 86)   790    149        2 (1435/ 588-1514/ 722)  83.7 W29-W34 S29-S20
     18 1717  599 (S26W54 L=108)  1813    406        3 (1632/ 552-1831/ 686)  18.4 W47-W66 S29-S20
     19 1501  478 (S36W40 L= 93)   566     91        1 (1451/ 444-1539/ 520)  45.0 W36-W42 S38-S33
     20  979  467 (S40E01 L= 53)   225     40        2 ( 955/ 448-1005/ 484)  45.0 E02-W00 S41-S38
  

    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