Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1677 1583 (N26W57 L=  8)   489    108        1 (1650/1564-1708/1599)   0.0 W54-W60 N24-N27
      2  181 1318 (N28E61 L=250)  2214    332        9 ( 145/1235- 215/1396) -74.7 E64-E57 N22-N33
      3  312 1266 (N23E47 L=264)   475    169        0 ( 250/1233- 368/1317)  20.0 E52-E41 N21-N25
      4 1703 1119 (S03W46 L=357)   255     41        2 (1684/1102-1727/1140) -18.4 W44-W47 S03-S01
      5 1178 1088 (N01W10 L=321)   226     46        1 (1158/1059-1197/1117)  71.6 W08-W10 N00-N03
      6  677 1087 (N07E20 L=291)   223     89        1 ( 636/1069- 734/1112) -26.6 E22-E16 N05-N09
      7 1673 1007 (S09W42 L=353)   249     59        1 (1650/ 995-1705/1024)   0.0 W40-W44 S09-S07
      8  265  816 (S04E55 L=256)  1170    275        3 ( 237/ 703- 303/ 957)  85.9 E59-E52 S10-N04
      9 1855  700 (S30W60 L= 11)  1900    228        3 (1808/ 641-1889/ 780)  83.7 W55-W64 S34-S24
     10  357  713 (S11E49 L=262)   510     87        2 ( 338/ 683- 387/ 760)  53.1 E51-E47 S12-S08
     11  892  655 (S21E13 L=298)   938    236        2 ( 812/ 569- 944/ 758)  42.3 E19-E08 S25-S15
     12  283  611 (S16E60 L=251)  3866    552       10 ( 192/ 453- 362/ 702) -70.6 E70-E54 S27-S10
     13 1432  623 (S30W23 L=334)   331     58        0 (1406/ 589-1455/ 650)  36.9 W20-W24 S32-S28
     14 1666  594 (S35W43 L=354)   529     68        0 (1649/ 556-1685/ 630) -63.4 W40-W45 S38-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