Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1484 1403 (N13W38 L=341)   450    179        0 (1428/1350-1554/1444)   0.0 W32-W44 N11-N13
      2 1220 1363 (N19W21 L=324)   267    111        1 (1162/1348-1274/1382) -45.0 W18-W24 N16-N21
      3  262 1162 (N32E49 L=254)  1222    271        0 ( 195/1078- 337/1230) -45.0 E55-E42 N25-N37
      4 1854 1134 (S13W58 L=  1)   413    114        2 (1822/1092-1875/1167)  23.2 W53-W61 S14-S11
      5 1033 1046 (N07W01 L=304)   995    290        1 ( 883/ 998-1165/1083) -20.6 E07-W09 N02-N10
      6  588  974 (N14E27 L=276)  1249    539        4 ( 349/ 883- 807/1039) -10.3 E44-E11 N11-N17
      7 1645  871 (S21W33 L=337)   351     92        0 (1629/ 829-1660/ 926)  51.3 W31-W35 S22-S17
      8 1340  850 (S13W13 L=316)   199     86        0 (1328/ 805-1360/ 902)  45.0 W11-W15 S15-S10
      9  120  870 (N17E71 L=232)   909    158        2 (  93/ 844- 142/ 899)  36.9 E76-E67 N15-N18
     10  296  813 (N11E53 L=250)   378     59        0 ( 273/ 779- 316/ 843) -63.4 E54-E51 N08-N12
     11 1168  582 (S23E04 L=299)  1697    335        6 (1122/ 442-1233/ 737)  48.8 E11-W03 S32-S15
     12  496  541 (S09E47 L=256)   999    161        2 ( 443/ 473- 545/ 599)  77.5 E49-E43 S13-S04
     13  608  527 (S12E39 L=264)   255     83        3 ( 591/ 494- 625/ 562)  78.7 E40-E37 S14-S09
     14  369  500 (S09E60 L=243)  1469    274        8 ( 317/ 436- 413/ 557)  58.0 E65-E54 S13-S05
     15  491  358 (S20E58 L=246)  1090    136        3 ( 450/ 311- 537/ 399) -90.0 E60-E52 S24-S16
  

    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