Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1383 1610 (N27W43 L= 84)   388     85        1 (1349/1589-1434/1628) -15.9 W39-W46 N25-N28
      2  455 1502 (N50E30 L= 11)   355     78        1 ( 416/1489- 497/1513) -16.7 E35-E25 N47-N51
      3 1555 1486 (N15W47 L= 88)   269     60        0 (1530/1460-1583/1508)   0.0 W45-W50 N13-N16
      4  740 1165 (N20E13 L= 28)   428    170        0 ( 669/1134- 825/1197) -41.2 E16-E08 N16-N23
      5 1020 1130 (N11W03 L= 43)   264    125        0 ( 996/1078-1047/1194)  74.1 W01-W04 N07-N14
      6 1399 1167 (N03W25 L= 66)   212     87        0 (1363/1137-1433/1185) -63.4 W23-W26 N00-N04
      7  352 1115 (N27E42 L=359)   830    198        4 ( 273/1047- 420/1182) -42.5 E49-E36 N21-N32
      8  118 1046 (N27E73 L=328)   721     97        2 (  97/1013- 145/1098) -26.6 E79-E67 N24-N30
      9 1573  859 (S19W28 L= 69)   309     46        1 (1548/ 830-1598/ 886)  18.4 W26-W30 S20-S17
     10  854  666 (S10E19 L= 22)   206     50        1 ( 825/ 654- 885/ 684) -14.0 E21-E17 S11-S09
     11 1826  649 (S43W54 L= 95)   671    101        1 (1777/ 619-1870/ 681)  -3.4 W46-W63 S44-S41
     12 1240  427 (S36E05 L= 36)  1159    204        1 (1162/ 359-1305/ 512)  30.3 E10-W02 S39-S32
     13  752  321 (S29E41 L=360)  1576    204        4 ( 705/ 239- 800/ 410)  29.1 E51-E33 S34-S23
     14 1114  344 (S38E16 L= 25)   391     69        2 (1085/ 317-1145/ 367) -45.0 E18-E13 S39-S36
     15  989  284 (S39E28 L= 13)   707    104        3 ( 939/ 266-1047/ 308) -12.5 E32-E23 S41-S36
  

    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