Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1230 1860 (N51W51 L=117)   500     41        1 (1199/1839-1255/1877) -45.0 W46-W55 N49-N52
      2 1509 1499 (N19W43 L=109)  1487    307        2 (1382/1442-1614/1595)   6.8 W32-W57 N16-N22
      3  979 1525 (N33W09 L= 75)  1662    383        2 ( 827/1450-1144/1580) -33.7 E01-W17 N24-N38
      4  359 1411 (N40E43 L= 23)  2279    315        7 ( 268/1310- 429/1551) -35.0 E65-E34 N31-N52
      5  366 1160 (N23E41 L= 25)   493     83        1 ( 335/1129- 395/1186)  26.6 E43-E38 N20-N24
      6  122 1050 (N21E71 L=355)  5281    235        7 (  82/ 942- 165/1162) -81.3 E82-E64 N14-N27
      7  402 1044 (N15E39 L= 27)   662     78        2 ( 360/1006- 443/1078) -33.7 E42-E36 N12-N17
      8 1302  842 (S14W13 L= 79)   373    160        1 (1277/ 770-1324/ 923)  53.1 W09-W15 S17-S09
      9 1013  701 (S16E07 L= 59)   500    151        0 ( 954/ 651-1076/ 752) -60.9 E09-E04 S20-S11
     10 1660  649 (S35W37 L=103)   441     91        0 (1618/ 633-1699/ 675)   0.0 W33-W41 S36-S32
     11  453  500 (S17E51 L= 15)   317     64        0 ( 436/ 473- 472/ 535)  78.7 E53-E49 S19-S14
     12  648  426 (S26E40 L= 26)   324     77        1 ( 631/ 388- 662/ 471)  45.0 E42-E37 S28-S22
     13  824  402 (S31E29 L= 37)   248     65        0 ( 791/ 383- 860/ 418)   0.0 E32-E26 S31-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