Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1109 1721 (N38E17 L=107)   860    126        2 (1047/1692-1170/1749)  12.5 E21-E11 N35-N39
      2  498 1683 (N19E56 L= 68)   432     83        1 ( 457/1651- 526/1711)  78.7 E57-E54 N16-N21
      3  491 1631 (N16E53 L= 71)  1053    176        1 ( 401/1580- 572/1686)  45.0 E59-E49 N11-N20
      4 1218 1618 (N33E06 L=118)   737    129        2 (1170/1560-1263/1664) -32.0 E09-E01 N30-N36
      5  613 1603 (N16E42 L= 82)   439    106        2 ( 575/1577- 646/1636)  -8.1 E45-E38 N14-N17
      6 1234 1477 (N24E00 L=124)   209     34        1 (1215/1458-1251/1497)  90.0 E01-W01 N22-N26
      7 1581 1107 (N13W30 L=154)   271     56        0 (1549/1087-1611/1126)  11.3 W27-W32 N12-N14
      8 1824  830 (N06W58 L=182)   550     87        0 (1803/ 795-1843/ 869)  90.0 W55-W60 N03-N08
      9 1108  690 (S23W14 L=138)   684    266        0 ( 972/ 663-1236/ 714)  28.1 W06-W21 S28-S19
     10 1632  492 (S17W57 L=181)   926    129        1 (1581/ 436-1678/ 547)  82.9 W54-W59 S21-S13
     11 1719  476 (S15W67 L=191)  1001    115        4 (1684/ 441-1748/ 516) -78.7 W64-W70 S17-S12
     12 1379  481 (S26W40 L=164)   448     84        1 (1334/ 460-1414/ 501)   8.1 W35-W42 S27-S24
     13 1449  401 (S28W49 L=173)   439    109        1 (1388/ 381-1497/ 433)  54.5 W45-W51 S31-S24
  

    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