Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1345 1669 (N42W00 L=339)   633    100        1 (1311/1616-1366/1706) -56.3 E03-W03 N38-N45
      2  911 1652 (N27E26 L=313)   482    107        0 ( 885/1603- 938/1701) -66.8 E28-E23 N23-N30
      3 1473 1342 (N24W17 L=357)   291    106        0 (1424/1309-1513/1379)  -8.1 W13-W20 N23-N24
      4 1665 1288 (N27W33 L= 12)   367     98        0 (1651/1240-1680/1344) -56.3 W30-W34 N24-N30
      5  249 1248 (S12E58 L=281)  1413    170        2 ( 205/1167- 285/1330) -39.3 E66-E53 S16-S07
      6 1739 1244 (N27W40 L= 19)   372     97        0 (1721/1190-1750/1290) -51.3 W37-W41 N24-N29
      7  315 1211 (S13E50 L=289)   713    126        3 ( 286/1153- 346/1262) -56.3 E53-E47 S16-S10
      8  451 1196 (S11E39 L=300)   353    121        0 ( 406/1153- 485/1245) -20.6 E43-E35 S12-S09
      9 1421 1176 (N13W18 L=357)   421    101        2 (1382/1155-1457/1208) -11.3 W15-W20 N10-N14
     10  409 1080 (S19E39 L=300)   596    101        2 ( 353/1053- 443/1114)  33.7 E43-E36 S20-S16
     11 1320 1092 (N05W14 L=353)   365     96        0 (1262/1078-1371/1108)  23.2 W10-W17 N03-N07
     12  910  923 (S15E04 L=336)   276     55        1 ( 883/ 891- 935/ 948) -45.0 E05-E02 S16-S13
     13  849  914 (S17E07 L=332)   206     50        1 ( 823/ 887- 879/ 941)  63.4 E08-E05 S19-S15
     14 1792  866 (N08W53 L= 32)   453    122        0 (1769/ 832-1829/ 920) -45.0 W50-W57 N06-N10
     15  802  772 (S26E06 L=333)   388    114        1 ( 782/ 715- 820/ 823) -56.3 E08-E03 S29-S23
     16 1749  787 (N02W52 L= 31)   454     41        1 (1720/ 764-1779/ 814)  -9.5 W49-W55 N01-N03
     17  265  662 (S48E54 L=285)   466     69        1 ( 226/ 640- 298/ 686)  -5.2 E60-E49 S49-S46
     18 1304  530 (S25W33 L= 12)   240     43        0 (1285/ 503-1325/ 559) -21.8 W30-W35 S26-S23
     19 1561  508 (S18W51 L= 30)   784    122        2 (1510/ 455-1603/ 545) -71.6 W46-W54 S20-S14
     20 1098  451 (S36W24 L=  4)   253     60        0 (1067/ 435-1141/ 469)  36.9 W22-W26 S37-S33
  

    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