Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  876 1613 (N39E17 L=305)  6139    981        8 ( 488/1495-1301/1773)  -7.1 E73-W16 N31-N47
      2  407 1471 (N24E51 L=271)   447     64        0 ( 385/1444- 437/1502) -23.2 E54-E47 N22-N26
      3  227 1411 (N19E70 L=252)  1642    108        5 ( 185/1375- 258/1460)  39.8 E75-E65 N16-N21
      4  331 1179 (N06E49 L=273)  2508    480        2 ( 286/ 986- 406/1419)  87.8 E51-E47 S06-N20
      5 1200 1361 (N24W09 L=331)   394    111        1 (1186/1302-1216/1417)  81.9 W08-W10 N20-N27
      6 1085 1379 (N24W01 L=324)   215     75        0 (1075/1336-1097/1415) -78.7 W00-W02 N21-N26
      7 1834 1239 (N20W62 L= 24)  1138     80        3 (1794/1206-1878/1274) -18.4 W56-W69 N17-N22
      8 1613 1247 (N19W39 L=  1)   275     70        0 (1576/1237-1654/1258)   0.0 W35-W42 N18-N20
      9 1879 1153 (N15W66 L= 29)   635     61        2 (1849/1127-1908/1174) -12.5 W62-W71 N13-N16
     10 1896  959 (N03W69 L= 31)   679     75        0 (1866/ 929-1930/ 980)  16.7 W64-W75 N01-N04
     11  544  773 (S17E30 L=293)   294    108        0 ( 496/ 758- 595/ 798)  -8.1 E33-E26 S18-S16
     12 1292  653 (S19W20 L=343)  1011    217        2 (1192/ 620-1393/ 688)  17.1 W13-W26 S21-S16
     13 1003  523 (S30W03 L=325)   742    133        2 ( 938/ 500-1075/ 547)  20.6 E01-W07 S32-S27
     14  653  378 (S45E26 L=296)   390     39        0 ( 627/ 361- 685/ 400)   0.0 E29-E23 S46-S43
  

    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