Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1383 1751 (N56W03 L=156)  1027    104        2 (1348/1702-1426/1786)  56.3 W00-W08 N49-N59
      2 1075 1705 (N39E19 L=134)   678    116        3 (1017/1672-1130/1735)   0.0 E23-E13 N37-N40
      3 1428 1707 (N53W09 L=162)   401      9        0 (1407/1686-1449/1726) -45.0 W06-W11 N51-N55
      4  745 1553 (N20E32 L=121)  1407    275        5 ( 692/1460- 814/1678) -32.9 E41-E24 N14-N27
      5 1539 1606 (N48W22 L=174)   546     74        0 (1507/1587-1578/1630)   7.1 W18-W26 N46-N50
      6  314 1536 (N09E68 L= 85)  1743    173        2 ( 260/1470- 346/1604) -63.4 E76-E64 N04-N14
      7  864 1349 (N10E17 L=135)   348     73        0 ( 829/1324- 891/1377)  45.0 E19-E16 N08-N12
      8 1511 1235 (N21W24 L=177)   265     82        1 (1473/1218-1558/1251)   9.5 W21-W27 N19-N21
      9 1794 1120 (N23W50 L=203)   724    125        2 (1740/1091-1837/1154)  -5.7 W44-W55 N21-N25
     10  548  875 (S24E26 L=127)   400    105        0 ( 507/ 845- 594/ 909)   0.0 E29-E22 S26-S22
     11 1306  732 (S13W24 L=177)   766    260        2 (1265/ 619-1345/ 847) -75.1 W21-W27 S20-S05
     12 1520  627 (S13W42 L=195)   407     58        1 (1492/ 601-1553/ 648)  45.0 W39-W44 S14-S11
     13  729  597 (S37E07 L=145)   371     76        1 ( 692/ 573- 760/ 621)  45.0 E09-E05 S38-S34
     14 1692  496 (S15W65 L=218)   552     60        1 (1668/ 469-1722/ 525)  53.1 W63-W67 S16-S12
     15  856  338 (S52W12 L=165)   374     50        1 ( 833/ 311- 881/ 367) -68.2 W10-W14 S53-S48
  

    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