Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1384 1854 (N50W74 L=166)   842     68        1 (1357/1829-1411/1874)   0.0 W64-W88 N48-N51
      2 1749 1479 (N17W67 L=159)  1216    141        2 (1688/1439-1808/1517) -32.5 W61-W72 N13-N20
      3 1521 1430 (N20W42 L=135)   436     62        0 (1496/1393-1545/1459)  36.9 W40-W45 N18-N21
      4 1705 1408 (N15W57 L=149)   893    108        3 (1666/1365-1744/1450) -71.6 W53-W62 N11-N17
      5  594 1388 (N36E24 L= 68)   239     96        0 ( 572/1342- 615/1428)  59.0 E25-E22 N33-N38
      6 1850 1238 (N01W65 L=158)   651    105        2 (1821/1196-1888/1274)   4.8 W60-W73 N00-N02
      7 1667 1131 (N00W43 L=136)   734    183        3 (1621/1061-1721/1197) -66.0 W40-W46 S05-N04
      8 1918 1075 (S10W71 L=163)  3215    278        9 (1885/ 989-1949/1183) -81.3 W64-W80 S16-S03
      9 1820 1118 (S05W57 L=150)   426     74        1 (1794/1079-1845/1150) -76.0 W55-W60 S06-S02
     10 1566  917 (S10W32 L=124)   302    111        0 (1553/ 867-1580/ 972)  71.6 W30-W32 S12-S06
     11 1200  853 (S07W07 L=100)   597    255        3 (1124/ 791-1279/ 950) -57.5 W04-W11 S11-N00
     12 1828  887 (S19W55 L=148)  1710     99        4 (1780/ 838-1885/ 939)  24.0 W49-W63 S22-S15
     13 1607  864 (S14W34 L=127)   391     60        1 (1585/ 830-1634/ 900)  63.4 W32-W36 S15-S11
     14  322  834 (N05E51 L= 42)   378     62        1 ( 290/ 806- 352/ 857)  26.6 E54-E48 N03-N06
     15 1165  788 (S10W04 L= 97)   195     54        0 (1142/ 766-1188/ 812)  33.7 W02-W05 S10-S08
     16 1250  753 (S14W09 L=101)   457     97        4 (1209/ 718-1291/ 788) -38.7 W06-W11 S16-S11
     17  305  562 (S12E63 L= 29)  5102    278        7 ( 225/ 462- 405/ 663) -75.1 E78-E54 S19-S04
     18  678  547 (S17E31 L= 61)   331     80        1 ( 657/ 503- 695/ 585)  78.7 E32-E29 S19-S14
     19 1420  519 (S33W17 L=110)   700    106        3 (1365/ 495-1473/ 556)  -7.1 W13-W21 S35-S30
     20  450  484 (S18E52 L= 40)   985     85        1 ( 406/ 408- 484/ 540)  56.3 E56-E48 S23-S14
     21  978  451 (S28E14 L= 78)   584    101        1 ( 956/ 393-1003/ 500)  54.5 E17-E11 S32-S24
     22 1534  354 (S51W31 L=123)   964     64        2 (1506/ 323-1567/ 383)  45.0 W26-W35 S54-S48
     23  595  328 (S31E49 L= 43)  1447    207        2 ( 508/ 301- 698/ 354)  -9.0 E60-E40 S34-S28
  

    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