Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  586 1699 (N58E20 L=264)  1598    197        4 ( 497/1642- 667/1757)   5.0 E31-E08 N55-N61
      2  407 1620 (N57E44 L=240)   701     64        1 ( 377/1583- 434/1650)  80.5 E49-E40 N53-N59
      3  323 1593 (N57E60 L=224)   861     86        1 ( 274/1575- 369/1611)  -2.3 E74-E49 N55-N57
      4 1320 1561 (N27W33 L=317)   420     85        2 (1278/1537-1358/1583)   0.0 W29-W36 N25-N28
      5 1387 1486 (N21W34 L=318)   794    181        3 (1306/1450-1457/1514) -36.9 W29-W39 N17-N24
      6  832 1435 (N31E02 L=282)   289     74        1 ( 808/1410- 862/1472) -68.2 E04-W00 N29-N34
      7  247 1354 (N40E56 L=228)   590     89        1 ( 212/1330- 296/1374)  -4.4 E62-E49 N38-N41
      8 1189 1225 (N11W14 L=298)   199     80        0 (1153/1197-1213/1256)  21.8 W11-W16 N09-N11
      9  250  765 (N04E59 L=225)   603     87        0 ( 231/ 715- 276/ 807) -90.0 E61-E57 N00-N06
     10 1643  693 (S31W34 L=318)   274     60        0 (1609/ 678-1676/ 704)   0.0 W31-W37 S32-S30
     11 1709  650 (S36W41 L=325)   338     15        1 (1689/ 630-1729/ 670)  63.4 W38-W43 S37-S34
     12  527  625 (S09E40 L=244)   331     85        0 ( 501/ 582- 553/ 665)  33.7 E43-E37 S11-S07
     13 1026  414 (S34E16 L=268)  1583    465        0 ( 835/ 328-1168/ 553)   6.3 E29-E02 S37-S27
  

    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