Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  302 1527 (N23E64 L=339)   690    200        0 ( 287/1480- 318/1567) -35.5 E68-E61 N20-N25
      2  738 1479 (N26E26 L= 18)   241     27        1 ( 718/1459- 759/1503)  90.0 E26-E23 N24-N27
      3 1562 1419 (N32W34 L= 78)   564     83        1 (1538/1372-1589/1467) -63.4 W32-W36 N29-N35
      4 1280 1385 (N26W13 L= 56)   848    217        3 (1214/1275-1358/1466) -50.2 W07-W18 N19-N31
      5  892 1342 (N19E12 L= 31)  1497    403        6 ( 796/1204- 990/1458) -41.2 E20-E04 N11-N25
      6 1798 1100 (N14W55 L= 98)  1725    443        4 (1754/ 949-1830/1295) -79.7 W50-W58 N04-N26
      7 1656 1218 (N20W41 L= 85)   367    113        1 (1625/1192-1696/1240) -21.8 W38-W44 N17-N21
      8 1626 1129 (N14W39 L= 83)   411    213        0 (1556/1114-1690/1183)  21.8 W33-W44 N12-N17
      9 1306 1034 (N05W17 L= 61)   359    102        0 (1241/1011-1349/1058)  33.7 W13-W19 N02-N06
     10 1894 1005 (N09W68 L=112)   520    108        0 (1879/ 951-1908/1053) -74.1 W65-W70 N05-N12
     11  515  925 (S11E32 L= 12)   527    137        1 ( 451/ 885- 579/ 967) -16.7 E36-E26 S12-S09
     12  744  902 (S10E16 L= 28)   433    161        2 ( 658/ 879- 814/ 921)   5.7 E21-E11 S11-S08
     13 1038  555 (S28W07 L= 51)   233     69        0 (1002/ 545-1080/ 565)  21.8 W04-W09 S29-S27
     14 1556  360 (S36W54 L= 98)   528     61        1 (1532/ 337-1574/ 389) -76.0 W52-W56 S37-S33
  

    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