Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1283 1841 (N67W15 L= 23)   517     49        1 (1256/1819-1314/1854)  20.0 W10-W21 N63-N69
      2 1453 1440 (N33W26 L= 34)  1435    320        3 (1393/1325-1569/1543) -42.7 W20-W34 N25-N39
      3  527 1433 (N20E40 L=328)   481     77        0 ( 483/1408- 570/1457)  -7.1 E44-E36 N18-N20
      4 1740 1350 (N30W52 L= 61)   373     83        0 (1727/1315-1757/1393)  63.4 W50-W54 N27-N33
      5  617 1321 (N14E30 L=338)   255     48        0 ( 593/1305- 644/1337)  33.7 E32-E28 N12-N14
      6 1357 1281 (N21W18 L= 27)   324    115        0 (1325/1251-1407/1326) -33.7 W16-W22 N19-N23
      7 1705 1175 (N18W46 L= 54)   358     86        0 (1670/1153-1743/1206)  -9.5 W42-W49 N16-N19
      8 1509  987 (N04W31 L= 40)   689    249        1 (1474/ 880-1536/1088) -85.2 W29-W32 S02-N10
      9  877  775 (S16E06 L=  2)   328    116        1 ( 829/ 736- 915/ 817)  56.3 E09-E04 S19-S13
     10  482  720 (S25E34 L=334)  1183    180        0 ( 452/ 641- 510/ 810)  80.5 E36-E31 S30-S18
     11 1136  587 (S25W13 L= 22)  1255    390        1 (1002/ 517-1254/ 726)  50.9 W05-W18 S31-S14
     12  558  531 (S37E29 L=339)   992    144        4 ( 523/ 469- 604/ 569) -81.9 E31-E24 S42-S34
     13 1295  531 (S27W26 L= 34)   418     96        0 (1251/ 500-1340/ 554)  45.0 W23-W28 S29-S24
     14 1518  472 (S28W46 L= 54)  2387    397        3 (1336/ 430-1696/ 504)  14.0 W32-W64 S33-S24
  

    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