Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  457 1651 (N36E48 L=228)   542    115        1 ( 429/1605- 490/1695)  80.5 E49-E45 N32-N39
      2  529 1531 (N27E37 L=239)   381     75        1 ( 500/1510- 560/1555) -26.6 E39-E33 N25-N28
      3 1535 1417 (N22W33 L=309)   788    191        0 (1477/1334-1588/1505) -65.6 W29-W36 N17-N28
      4 1095 1388 (N18W03 L=279)   811    190        0 (1036/1303-1174/1448)  51.3 W00-W08 N12-N22
      5 1405 1287 (N13W23 L=299)  1409    279        0 (1283/1208-1529/1394) -32.0 W15-W31 N08-N19
      6 1572 1255 (N12W34 L=310)   250     64        0 (1545/1222-1595/1284)  45.0 W32-W36 N10-N14
      7 1185 1185 (N06W09 L=285)   263     71        0 (1141/1169-1228/1201)   0.0 W06-W11 N05-N06
      8 1681 1112 (N04W43 L=318)   257     37        1 (1666/1080-1699/1135)  71.6 W41-W44 N02-N05
      9  294  899 (S13E50 L=226)   287     96        0 ( 260/ 883- 326/ 923)  15.9 E53-E46 S13-S11
     10  500  779 (S20E34 L=241)  1055    261        0 ( 441/ 680- 593/ 869)  42.5 E39-E26 S26-S14
     11 1907  812 (S11W70 L=345)   644     90        0 (1877/ 784-1927/ 844)  33.7 W65-W73 S13-S08
     12 1534  805 (S15W34 L=310)   409    100        0 (1487/ 775-1574/ 828)   0.0 W30-W37 S16-S13
     13 1346  610 (S28W24 L=299)   754    152        2 (1268/ 578-1411/ 673)  29.1 W18-W27 S30-S23
     14 1650  593 (S27W48 L=323)   536     81        1 (1619/ 556-1679/ 618)  76.0 W44-W49 S29-S25
     15  445  535 (S36E43 L=232)   746    210        3 ( 407/ 475- 487/ 606)  39.3 E48-E37 S39-S30
  

    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