Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  848 1797 (N40E34 L=329)   983    113        2 ( 796/1769- 905/1821)   0.0 E39-E28 N37-N41
      2 1187 1697 (N39E04 L=358)  1158    161        4 (1130/1616-1228/1754) -51.3 E08-W00 N33-N43
      3 1102 1703 (N38E10 L=352)   394     51        0 (1080/1678-1126/1731) -31.0 E12-E07 N35-N39
      4  349 1608 (N19E65 L=297)   956    127        0 ( 317/1554- 391/1648)  81.9 E68-E63 N14-N21
      5 1427 1612 (N39W16 L= 18)   269     72        0 (1400/1588-1459/1631)  45.0 W13-W18 N36-N41
      6  501 1411 (N07E40 L=322)   443    106        0 ( 456/1369- 540/1449)  63.4 E43-E38 N04-N10
      7 1068 1369 (N14E04 L=358)   460    210        0 ( 960/1343-1161/1382)  10.3 E10-W01 N12-N15
      8 1541 1340 (N23W27 L= 29)   292     59        0 (1514/1313-1568/1368) -14.0 W24-W28 N21-N24
      9  219 1134 (S12E59 L=303)  1969    271        3 ( 141/1038- 271/1236)  42.5 E68-E53 S17-S05
     10  294  877 (S27E50 L=313)  1408    401        2 ( 232/ 729- 344/1076)  59.4 E59-E45 S36-S14
     11 1627  791 (S07W43 L= 45)   398     93        2 (1602/ 744-1665/ 817)  78.7 W40-W45 S10-S05
     12 1305  624 (S24W27 L= 29)   855    233        2 (1276/ 516-1348/ 726) -65.2 W24-W30 S30-S17
     13 1702  665 (S12W54 L= 56)   619    113        2 (1676/ 624-1737/ 721) -21.8 W49-W59 S13-S09
     14 1545  486 (S26W50 L= 53)  2033    343        5 (1426/ 399-1678/ 583)  55.5 W44-W58 S34-S17
     15 1593  391 (S30W63 L= 65)  1158    154        1 (1524/ 349-1659/ 434)  56.3 W57-W67 S34-S25
  

    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