Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1613 1665 (N25W65 L= 41)  1109    137        4 (1534/1639-1673/1688) -26.6 W58-W72 N22-N28
      2 1420 1634 (N28W45 L= 21)   345     38        0 (1395/1611-1446/1655) -63.4 W43-W47 N26-N30
      3 1233 1592 (N31W30 L=  6)   565    197        2 (1129/1557-1318/1613) -38.7 W23-W34 N26-N34
      4 1502 1588 (N23W48 L= 24)   552    140        0 (1426/1574-1557/1609) -15.3 W42-W53 N21-N25
      5 1474 1532 (N21W43 L= 19)   263     59        0 (1445/1517-1511/1548) -36.9 W41-W45 N19-N22
      6 1148 1511 (N28W21 L=357)   225     66        0 (1123/1480-1174/1542) -78.7 W19-W21 N25-N30
      7 1833 1123 (S11W57 L= 33)   537    110        0 (1782/1103-1882/1145) -20.0 W51-W63 S13-S08
      8  514  995 (N13E31 L=305)   270     59        0 ( 498/ 960- 530/1031)  56.3 E32-E29 N11-N14
      9  447  977 (N13E37 L=299)   297     87        0 ( 435/ 933- 463/1023)  59.0 E37-E34 N10-N15
     10 1559  539 (S40W25 L=  1)   824    179        1 (1497/ 480-1634/ 593)  17.1 W19-W32 S42-S37
     11  460  336 (S25E65 L=271)  1290     88        5 ( 428/ 287- 494/ 378)  48.8 E71-E59 S29-S21
     12  748  314 (S33E41 L=295)   820    103        1 ( 701/ 287- 797/ 343) -38.7 E43-E38 S35-S30
     13  563  272 (S32E61 L=275)  1333    144        0 ( 541/ 205- 591/ 335)  22.6 E76-E51 S37-S27
     14  798  219 (S41E46 L=290)   477     64        0 ( 788/ 180- 809/ 260)  31.0 E51-E40 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