Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1118 1857 (N56W28 L=113)   390     66        3 (1087/1839-1156/1874) -15.9 W24-W32 N53-N58
      2 1489 1688 (N36W48 L=134)  1562    234        3 (1396/1651-1598/1743)   7.6 W37-W67 N33-N38
      3  556 1505 (N35E28 L= 58)   478     95        1 ( 510/1472- 597/1536) -32.0 E32-E24 N32-N38
      4  789 1414 (N26E11 L= 75)   310     94        0 ( 742/1384- 832/1432) -33.7 E13-E07 N23-N27
      5 1696 1386 (N13W51 L=137)   443    126        0 (1652/1332-1732/1425) -60.3 W48-W53 N09-N16
      6  411 1347 (N26E39 L= 47)   787    234        1 ( 312/1284- 482/1388) -26.6 E48-E32 N21-N30
      7  299 1085 (N11E48 L= 37)  1916    321        6 ( 241/ 985- 368/1203)  59.7 E53-E41 N05-N17
      8  412 1079 (N10E39 L= 47)   415     87        1 ( 388/1033- 433/1123)  59.0 E40-E36 N07-N12
      9  359  930 (N01E44 L= 41)   869    276        3 ( 299/ 891- 438/ 970)   0.0 E49-E37 S01-N04
     10 1410  874 (S14W22 L=108)   336    144        0 (1368/ 830-1454/ 934)  45.0 W19-W25 S16-S10
     11  754  654 (S20E22 L= 64)   247    111        0 ( 723/ 610- 804/ 679)  26.6 E24-E18 S21-S18
     12 1474  616 (S31W26 L=112)   743    181        1 (1393/ 572-1534/ 672)  26.6 W20-W30 S33-S27
     13  780  564 (S26E22 L= 63)   302    100        1 ( 736/ 518- 810/ 596) -63.4 E24-E20 S28-S22
  

    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