Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  321 1536 (N13E65 L=350)  2335    402        6 ( 288/1440- 371/1615) -32.9 E73-E56 N07-N18
      2  789 1493 (N20E26 L= 29)   770    214        5 ( 759/1431- 833/1567) -41.2 E29-E21 N16-N24
      3 1237 1376 (N23W05 L= 60)   518    185        2 (1193/1282-1278/1456) -45.0 W00-W09 N18-N27
      4 1707 1347 (N34W41 L= 96)  2079    376        6 (1598/1234-1832/1447) -17.7 W30-W53 N28-N37
      5  790 1314 (N09E20 L= 35)   456     72        3 ( 761/1278- 821/1349) -45.0 E22-E18 N07-N11
      6  261 1264 (S04E59 L=356)  1352    225        3 ( 202/1208- 338/1324)  38.7 E64-E52 S08-N00
      7  189 1178 (S10E64 L=351)   546     78        1 ( 171/1154- 213/1205) -26.6 E67-E60 S12-S08
      8  402 1115 (S10E42 L= 13)  1363    291        2 ( 310/1081- 532/1147)   9.5 E49-E31 S12-S07
      9 1901  931 (N13W67 L=122)  2293    241        8 (1864/ 857-1931/1008)  79.7 W62-W72 N07-N18
     10  920  694 (S24W01 L= 56)   306     74        1 ( 879/ 679- 962/ 711)  21.8 E01-W04 S25-S22
     11 1487  452 (S25W47 L=102)   327     82        0 (1458/ 421-1503/ 490) -78.7 W45-W48 S27-S22
     12 1453  300 (S35W55 L=110)   825     92        2 (1419/ 278-1486/ 328)  78.7 W51-W58 S37-S32
     13 1373  281 (S39W50 L=105)   456     64        0 (1353/ 260-1396/ 306) -45.0 W48-W52 S40-S37
  

    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