Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  969 1713 (N47E15 L=289)   370     85        0 ( 931/1685-1006/1735)  45.0 E17-E12 N44-N49
      2  316 1447 (N20E61 L=244)  1293    116        3 ( 281/1401- 354/1487)  63.4 E66-E56 N16-N22
      3  285 1354 (N14E60 L=245)   431     54        3 ( 263/1322- 306/1383) -33.7 E63-E56 N11-N15
      4 1312 1333 (N23W16 L=321)   329    129        0 (1250/1308-1367/1356) -14.0 W11-W19 N22-N24
      5  475 1309 (N13E40 L=264)   333     75        0 ( 440/1296- 524/1322)  -8.1 E43-E36 N11-N13
      6  588 1058 (S01E28 L=277)   245     52        1 ( 558/1036- 619/1073)  14.0 E30-E25 S02-N00
      7  600  905 (S10E26 L=279)   485    108        1 ( 567/ 868- 647/ 928)  31.0 E28-E22 S12-S08
      8  393  843 (S17E42 L=263)   334     45        1 ( 371/ 817- 411/ 875)  90.0 E43-E40 S18-S14
      9  186  827 (S20E66 L=239)   589     48        3 ( 168/ 795- 200/ 853)  63.4 E69-E63 S22-S18
     10  628  794 (S17E23 L=281)   350    136        0 ( 573/ 774- 692/ 832) -12.5 E27-E18 S17-S15
     11 1334  730 (S14W23 L=328)   559    182        1 (1312/ 660-1368/ 812) -78.7 W21-W25 S18-S08
     12  583  642 (S28E27 L=278)   252     95        1 ( 565/ 602- 594/ 697)  74.1 E28-E25 S30-S23
     13 1708  635 (S16W56 L=  1)   463     52        2 (1688/ 611-1731/ 658)  90.0 W53-W58 S18-S14
     14 1335  387 (S37W34 L=338)   759     96        3 (1291/ 357-1373/ 420)  59.0 W29-W36 S39-S34
     15 1266  236 (S52W39 L=344)   943     98        1 (1236/ 188-1295/ 288) -50.7 W35-W45 S57-S46
  

    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