Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  919 1738 (N49E21 L=293)   523    100        1 ( 870/1716- 962/1760)  33.7 E24-E17 N46-N51
      2 1686 1370 (N30W48 L=  2)  2770    320        4 (1621/1243-1765/1453)  54.5 W41-W59 N21-N35
      3  554 1408 (N20E37 L=277)   305     96        1 ( 511/1377- 590/1442) -20.6 E41-E33 N18-N21
      4 1164 1359 (N24W06 L=320)   205     86        0 (1118/1341-1208/1377)   0.0 W02-W08 N22-N24
      5  374 1331 (N13E50 L=264)   304     79        1 ( 344/1314- 413/1347)   0.0 E52-E45 N11-N13
      6 1587 1188 (N17W36 L=350)   618    104        0 (1549/1150-1639/1219)  35.5 W33-W40 N14-N19
      7  509 1091 (S00E34 L=280)   316    112        1 ( 461/1073- 559/1112)   0.0 E37-E30 N00-N00
      8  525  903 (S11E31 L=283)   592    204        1 ( 466/ 844- 601/ 949) -16.7 E35-E25 S14-S08
      9  511  821 (S17E32 L=282)   348    135        3 ( 456/ 802- 549/ 849)  -8.1 E36-E29 S18-S14
     10 1198  730 (S15W14 L=328)   634    208        0 (1167/ 652-1240/ 819) -68.2 W11-W17 S19-S09
     11  540  695 (S25E30 L=284)   297     60        2 ( 519/ 664- 559/ 723)  76.0 E31-E28 S26-S22
     12 1706  644 (S16W55 L=  9)   403     58        1 (1679/ 625-1727/ 667)  53.1 W52-W57 S17-S13
     13  403  615 (S32E44 L=270)   610    133        0 ( 339/ 592- 460/ 650) -10.3 E49-E38 S33-S30
     14 1226  403 (S37W24 L=338)   557     75        1 (1184/ 379-1262/ 430)   9.5 W20-W26 S39-S35
     15 1171  229 (S54W30 L=344)  1588    141        2 (1119/ 170-1216/ 299) -74.1 W25-W36 S61-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