Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  903 1715 (N31E29 L=140)  1705    360        2 ( 827/1603- 996/1779)  81.9 E34-E21 N21-N36
      2  442 1719 (N22E68 L=101)  1649    100        2 ( 405/1682- 476/1764) -45.0 E74-E63 N18-N25
      3 1317 1656 (N40W00 L=169)   695    173        0 (1252/1591-1362/1713) -28.6 E06-W05 N36-N42
      4  413 1656 (N17E64 L=105)  2024    254        6 ( 324/1591- 526/1702)  31.0 E77-E53 N11-N20
      5  490 1470 (N06E45 L=124)   910    173        2 ( 402/1441- 555/1516)  24.4 E52-E41 N03-N09
      6 1815 1401 (N41W51 L=220)   757    107        2 (1779/1350-1844/1441) -26.6 W46-W55 N37-N43
      7  603 1220 (S06E29 L=140)   265     81        1 ( 569/1197- 640/1253)  45.0 E31-E27 S07-S03
      8 1527 1168 (N14W26 L=194)   409     97        0 (1511/1121-1547/1221)  90.0 W24-W26 N11-N18
      9 1679 1056 (N13W39 L=208)   441     93        1 (1638/1031-1718/1084)   0.0 W35-W42 N11-N14
     10  859  866 (S20E05 L=163)   631    194        1 ( 783/ 787- 911/ 910) -21.8 E10-W00 S23-S18
     11  320  849 (S34E46 L=123)   500    115        0 ( 292/ 800- 345/ 903)  58.0 E49-E43 S37-S29
     12  473  757 (S36E30 L=138)   804    216        0 ( 438/ 673- 531/ 847) -48.0 E33-E24 S40-S30
     13  265  787 (S38E53 L=116)   362     51        0 ( 237/ 774- 296/ 802)   0.0 E56-E48 S39-S37
     14 1606  716 (S08W44 L=213)   670    111        2 (1568/ 675-1634/ 762)  90.0 W41-W47 S10-S04
     15 1177  645 (S24W20 L=189)   195     47        0 (1155/ 625-1199/ 663)   0.0 W18-W21 S25-S22
     16 1701  554 (S12W61 L=230)   362     61        0 (1671/ 536-1730/ 575)  53.1 W58-W62 S14-S10
     17 1475  443 (S26W50 L=218)   934    199        1 (1383/ 410-1558/ 489)  45.0 W43-W53 S29-S20
     18  693  302 (S64E00 L=169)  1968    238        3 ( 601/ 263- 805/ 358)   4.2 E14-W14 S68-S60
     19 1112  317 (S46W34 L=203)   468     94        0 (1092/ 270-1136/ 353) -40.6 W31-W39 S48-S42
     20 1568  328 (S28W69 L=238)  1809    167        1 (1494/ 302-1638/ 351)  11.3 W60-W86 S31-S25
     21 1258  204 (S47W59 L=228)  2709    203        6 (1184/ 160-1351/ 269)  22.4 W47-W72 S50-S43
  

    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