Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1841 (N65W24 L=343)  2027    283        3 (1001/1815-1268/1870)   2.5 W01-W47 N62-N67
      2  433 1608 (N43E57 L=262)   546     88        0 ( 410/1569- 457/1645) -26.6 E63-E50 N40-N46
      3 1435 1547 (N36W35 L=354)   510    145        1 (1378/1512-1502/1571) -32.0 W31-W40 N33-N38
      4  761 1362 (N26E17 L=302)  1235    384        4 ( 698/1267- 856/1457) -47.7 E22-E10 N19-N32
      5 1389 1381 (N25W27 L=346)   410     91        1 (1363/1330-1404/1424)  81.9 W25-W28 N21-N28
      6  379 1349 (N25E49 L=270)   546     95        1 ( 354/1309- 396/1407) -63.4 E51-E46 N22-N28
      7  385 1157 (N13E44 L=275)   538    122        2 ( 336/1134- 447/1189) -15.3 E49-E38 N11-N14
      8 1747  858 (S10W51 L= 10)   504     41        1 (1725/ 830-1770/ 882)  26.6 W49-W53 S11-S08
      9  569  798 (S09E30 L=289)  1158    255        2 ( 473/ 738- 649/ 835)  -9.5 E38-E25 S13-S06
     10  422  803 (S09E42 L=277)   343     60        1 ( 403/ 774- 446/ 831)  56.3 E43-E39 S10-S07
     11 1093  685 (S17W04 L=323)   533    168        2 (1066/ 601-1116/ 756)  73.3 W01-W05 S22-S12
     12  217  671 (S19E69 L=250)   615     70        1 ( 198/ 635- 241/ 693)  32.0 E74-E63 S21-S16
     13  762  659 (S18E18 L=301)   227     79        0 ( 729/ 638- 782/ 693)  26.6 E20-E16 S19-S16
     14 1448  538 (S29W30 L=349)   270     72        0 (1430/ 517-1469/ 581) -63.4 W28-W31 S30-S26
     15 1405  473 (S34W27 L=346)   753    111        2 (1371/ 441-1448/ 515) -40.6 W24-W31 S36-S30
  

    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