Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1214 1817 (N51E05 L=194)  1452    236        3 (1173/1741-1264/1875) -86.4 E09-E01 N43-N59
      2  345 1494 (N11E56 L=143)   786    120        4 ( 323/1446- 369/1548) -66.8 E59-E53 N08-N15
      3  502 1489 (N13E43 L=157)   312     63        0 ( 468/1458- 536/1512)  45.0 E44-E40 N10-N14
      4  525 1388 (N07E38 L=162)   249     48        0 ( 508/1356- 545/1416)  90.0 E38-E36 N04-N08
      5 1614 1341 (N24W32 L=231)   816    136        3 (1587/1269-1641/1398) -63.4 W29-W34 N19-N28
      6  893 1340 (N09E13 L=186)   384     77        0 ( 851/1310- 928/1370)   0.0 E15-E10 N07-N11
      7 1868 1229 (N24W56 L=255)  2156    197        3 (1831/1139-1910/1319) -52.1 W51-W61 N19-N29
      8 1011  933 (S12W01 L=200)  1125    298        1 ( 883/ 795-1084/1070)  72.5 E04-W03 S22-S03
      9 1764  987 (N07W49 L=248)   509    143        0 (1724/ 944-1813/1035) -16.7 W44-W54 N05-N08
     10  453  888 (S24E35 L=165)   685    236        1 ( 359/ 824- 528/ 973)  40.2 E42-E29 S28-S17
     11  715  819 (S24E16 L=184)   416     89        2 ( 692/ 777- 743/ 854)  68.2 E17-E13 S26-S21
     12  507  693 (S35E30 L=169)  1141    257        2 ( 414/ 651- 610/ 737)  27.9 E38-E21 S39-S30
     13 1477  561 (S24W40 L=239)  4933   1079        1 (1009/ 476-1865/ 649)  23.4 W11-W78 S39-S10
     14 1653  531 (S21W55 L=254)   358     68        1 (1625/ 502-1681/ 553)  -7.1 W53-W56 S23-S19
  

    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