Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1394 1679 (N42W20 L=110)   897    144        1 (1359/1611-1432/1734)  61.4 W16-W23 N36-N47
      2 1462 1642 (N40W25 L=115)   407     46        0 (1438/1611-1488/1669) -78.7 W23-W27 N37-N42
      3 1599 1456 (N29W35 L=125)   373     77        0 (1577/1419-1625/1496) -53.1 W33-W36 N26-N31
      4 1773 1389 (N27W51 L=141)   558     81        0 (1730/1360-1804/1415) -23.2 W46-W54 N25-N28
      5 1459 1281 (N15W24 L=114)   610     87        2 (1439/1219-1487/1326) -71.6 W22-W25 N11-N17
      6 1284 1225 (N09W13 L=103)   262     61        0 (1254/1195-1305/1253)  45.0 W11-W14 N07-N10
      7  220  920 (S18E57 L= 33)  3064    512        1 ( 165/ 697- 299/1163)  54.5 E71-E49 S31-S03
      8 1938 1053 (N10W69 L=159)   871    121        2 (1903/ 999-1960/1091) -24.0 W63-W74 N07-N11
      9  143  964 (S15E67 L= 23)   432     55        1 ( 119/ 945- 163/ 986) -15.9 E70-E63 S16-S14
     10 1612  926 (S04W38 L=128)   768    182        1 (1545/ 861-1654/ 971) -16.7 W32-W42 S07-S01
     11  911  788 (S21E04 L= 86)   452    135        0 ( 843/ 767- 977/ 813)   7.1 E08-W00 S22-S18
     12 1789  732 (S12W58 L=148)   874    185        3 (1747/ 675-1841/ 805)  60.9 W55-W61 S15-S06
     13 1681  673 (S17W50 L=140)   506    120        0 (1662/ 611-1695/ 721) -63.4 W47-W52 S20-S14
     14 1734  563 (S22W61 L=151)  2057    251        8 (1645/ 493-1820/ 635)  14.7 W53-W73 S26-S17
     15  641  511 (S42E23 L= 67)  1991    343        5 ( 469/ 480- 795/ 549)   3.9 E39-E10 S44-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