Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  737 1654 (N32E36 L=196)   758    135        0 ( 680/1621- 782/1682)  23.2 E39-E31 N28-N34
      2 1411 1638 (N48W16 L=249)   308     69        2 (1378/1619-1440/1652)   0.0 W13-W19 N45-N49
      3 1083 1526 (N31E07 L=226)  1291    302        3 ( 995/1409-1187/1616) -30.5 E15-W02 N24-N35
      4  722 1486 (N21E29 L=203)   281    123        0 ( 673/1470- 783/1516)  33.7 E32-E26 N18-N23
      5  976 1264 (N12E08 L=225)   374    177        0 ( 912/1240-1064/1295)   0.0 E12-E01 N10-N12
      6 1621 1117 (N16W37 L=270)   659    100        2 (1598/1077-1647/1161)  78.7 W35-W39 N13-N18
      7  206 1083 (S13E61 L=172)   479     59        1 ( 188/1059- 232/1107)  45.0 E63-E57 S14-S11
      8  181 1032 (S16E64 L=169)   469     47        1 ( 159/1004- 205/1053) -21.8 E67-E60 S17-S14
      9  134  936 (S23E73 L=160)   756     41        1 ( 105/ 917- 161/ 956)  11.3 E82-E67 S24-S21
     10  901  782 (S18E03 L=230)   284     63        1 ( 876/ 758- 931/ 810) -26.6 E04-W00 S19-S16
     11 1025  757 (S17W05 L=238)   224     14        0 (1002/ 737-1047/ 775)   0.0 W03-W06 S18-S15
     12 1462  715 (S11W34 L=267)   850    202        1 (1370/ 689-1548/ 743)  18.4 W28-W40 S14-S08
     13  801  659 (S28E07 L=226)   232    129        0 ( 752/ 644- 865/ 682)  35.5 E10-E03 S29-S24
     14 1459  581 (S19W38 L=271)   477    136        0 (1402/ 554-1532/ 602)  32.0 W34-W43 S21-S16
  

    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