Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  718 1646 (N39E21 L=216)   440     81        0 ( 674/1631- 768/1659)   8.1 E24-E17 N37-N40
      2  192 1086 (N05E60 L=177)  1146    141        1 ( 139/1021- 235/1130) -32.5 E67-E54 N01-N08
      3 1679 1048 (S03W43 L=280)   398     83        0 (1630/1030-1719/1067)  -8.1 W39-W46 S03-S01
      4 1586  781 (S19W37 L=274)   933    293        1 (1513/ 679-1669/ 884)  53.1 W32-W42 S25-S12
      5  479  786 (S14E37 L=200)   305    119        0 ( 426/ 748- 529/ 821)  24.0 E41-E32 S16-S12
      6  248  744 (S15E59 L=178)   511    113        3 ( 227/ 693- 273/ 795) -90.0 E61-E56 S18-S12
      7 1098  750 (S19W04 L=240)   257     60        0 (1076/ 716-1128/ 777)  53.1 W02-W05 S21-S17
      8  225  680 (S19E64 L=173)  1481    177        3 ( 191/ 619- 270/ 755) -90.0 E68-E59 S23-S14
      9  803  719 (S20E15 L=221)   208     80        1 ( 762/ 709- 849/ 733)   0.0 E18-E12 S20-S19
     10 1460  654 (S27W29 L=266)   262     77        0 (1416/ 640-1491/ 674)   0.0 W25-W31 S27-S25
     11  553  466 (S35E40 L=197)   344    111        0 ( 542/ 417- 580/ 519)  41.2 E43-E35 S38-S31
     12  372  462 (S34E60 L=177)   699     96        1 ( 350/ 411- 399/ 506)  24.8 E67-E53 S37-S31
     13 1135  316 (S51W06 L=243)   291     30        0 (1117/ 293-1152/ 340)  63.4 W04-W07 S52-S48
     14  722  280 (S51E35 L=202)   381     44        0 ( 696/ 262- 746/ 301)  15.9 E38-E31 S52-S49
     15  880  259 (S54E20 L=217)   474     44        0 ( 859/ 229- 912/ 288) -68.2 E22-E16 S57-S51
  

    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