Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1538 1636 (N29W50 L=117)  1901    268        4 (1449/1546-1626/1714) -69.0 W45-W54 N22-N35
      2 1251 1580 (N30W25 L= 92)   943    197        2 (1222/1488-1300/1665)  47.7 W21-W31 N24-N35
      3 1722 1592 (N23W66 L=133)   583    107        2 (1676/1563-1771/1622) -32.0 W61-W71 N20-N25
      4 1605 1324 (N09W42 L=109)   745    221        1 (1490/1297-1683/1380)  -3.6 W32-W48 N07-N12
      5 1304 1132 (N02W18 L= 85)   212     93        2 (1257/1122-1352/1145)   0.0 W15-W20 N01-N03
      6  395 1033 (N10E40 L= 28)   349    138        1 ( 346/ 990- 452/1078) -36.9 E43-E35 N06-N13
      7  143 1006 (N12E65 L=  2)   851    135        0 (  89/ 983- 214/1024)  -9.5 E74-E56 N09-N13
      8 1283  931 (S09W14 L= 81)   851    284        1 (1196/ 884-1337/1010)  18.4 W08-W17 S11-S04
      9  841  930 (S02E12 L= 55)   588    237        1 ( 795/ 833- 929/ 998)  35.0 E15-E05 S07-N00
     10  529  635 (S15E38 L= 29)  4189    832        6 ( 335/ 292- 652/ 947)  80.8 E53-E35 S38-N05
     11 1029  833 (S11E02 L= 65)   579    217        2 ( 999/ 738-1056/ 931)  74.7 E04-W00 S16-S05
     12  263  661 (S10E60 L=  7)  6644      0       21 ( 170/ 492- 376/ 780)  43.4 E74-E48 S20-S02
     13  416  631 (S14E47 L= 20)   548     72        2 ( 387/ 594- 445/ 670) -90.0 E48-E44 S16-S11
     14 1008  594 (S25E08 L= 59)   963    247        0 ( 905/ 518-1109/ 666)  21.8 E15-W00 S28-S21
     15  533  265 (S40E62 L=  5)   806     99        1 ( 501/ 229- 568/ 302)  11.9 E73-E54 S41-S37
  

    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