Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1646 (N39E29 L=125)   587     59        1 ( 742/1612- 805/1674)  53.1 E32-E26 N36-N41
      2 1402 1577 (N42W24 L=178)   859    126        1 (1350/1536-1460/1613) -24.0 W19-W29 N39-N44
      3  352 1534 (N26E63 L= 90)  1656    157        2 ( 327/1464- 377/1605) -26.6 E76-E56 N21-N30
      4 1618 1502 (N38W45 L=198)   447     87        0 (1582/1463-1649/1529) -51.3 W41-W47 N35-N40
      5  802 1397 (N22E19 L=135)   559    190        0 ( 777/1313- 838/1484)  90.0 E19-E17 N16-N28
      6  432  839 (S16E39 L=115)  3103    542        5 ( 267/ 633- 568/1004)  41.2 E60-E28 S32-S04
      7 1069  786 (S13W05 L=159)   318     70        1 (1047/ 746-1087/ 828) -59.0 W03-W06 S15-S10
      8 1807  730 (S10W64 L=217)   713    111        1 (1788/ 668-1824/ 781) -74.1 W61-W65 S13-S06
      9 1448  714 (S14W31 L=185)   542    149        0 (1381/ 687-1522/ 734)   0.0 W26-W37 S14-S12
     10 1723  668 (S14W56 L=209)   397     47        1 (1709/ 639-1747/ 692) -76.0 W53-W58 S16-S12
     11 1380  519 (S27W31 L=185)   577    160        1 (1318/ 470-1442/ 564)  49.4 W27-W34 S31-S23
     12 1739  505 (S25W69 L=223)   920     67        2 (1712/ 480-1774/ 534)  -4.1 W63-W78 S27-S23
     13  555  413 (S46E35 L=119)   654    105        1 ( 522/ 380- 602/ 450)  30.3 E40-E28 S49-S41
     14 1415  403 (S35W40 L=193)  1129    159        1 (1341/ 374-1486/ 433)  15.3 W33-W44 S37-S32
  

    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