Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  995 1884 (N70E16 L=127)   660     58        3 ( 968/1859-1033/1902)  16.7 E21-E08 N65-N72
      2  814 1594 (N39E20 L=123)   464    124        1 ( 774/1550- 858/1645) -33.7 E24-E15 N35-N43
      3 1703 1517 (N37W60 L=202)  1678    212        2 (1641/1453-1776/1549)   2.6 W49-W71 N32-N39
      4 1478 1482 (N34W33 L=176)   572    131        1 (1435/1442-1519/1512) -26.6 W29-W36 N31-N36
      5  528 1420 (N25E38 L=105)   421     95        0 ( 489/1397- 581/1439)  15.9 E41-E33 N23-N26
      6 1600 1365 (N26W41 L=184)   591     80        2 (1566/1328-1638/1403) -45.0 W38-W44 N23-N28
      7 1356 1363 (N25W21 L=164)   282     53        0 (1325/1344-1387/1384)   0.0 W19-W23 N24-N26
      8 1841 1178 (N14W63 L=206)   484     71        0 (1821/1146-1858/1218) -76.0 W61-W65 N12-N16
      9 1284 1015 (N03W16 L=159)   242     52        3 (1259/ 991-1308/1041)  71.6 W14-W17 N01-N04
     10 1752  855 (S06W53 L=196)   546     12        0 (1727/ 832-1778/ 877)  26.6 W50-W55 S07-S04
     11  220  697 (S23E66 L= 77)  1630    129        1 ( 181/ 640- 263/ 745)  17.7 E83-E57 S27-S19
     12  443  714 (S20E40 L=103)   677     79        1 ( 399/ 687- 494/ 744)  -7.1 E43-E35 S21-S17
     13  816  478 (S34E13 L=130)   540     80        1 ( 779/ 450- 857/ 510) -26.6 E15-E09 S36-S31
     14 1073  491 (S32W06 L=149)   300     91        0 (1028/ 474-1121/ 510)  -8.1 W02-W09 S33-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