Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1290 1678 (N39W26 L=  6)  5117    780       11 ( 993/1487-1592/1811) -31.4 W03-W44 N23-N52
      2  543 1602 (N39E34 L=306)  1907    442        3 ( 377/1561- 747/1670) -14.0 E60-E16 N34-N46
      3  884 1574 (N34E06 L=334)   443     79        1 ( 839/1550- 926/1602) -26.6 E09-E03 N32-N36
      4 1638 1430 (N20W46 L= 26)   574     91        1 (1607/1384-1669/1469)  50.2 W42-W48 N16-N22
      5 1183 1416 (N21W13 L=353)   376    138        0 (1138/1390-1242/1462) -33.7 W10-W16 N19-N24
      6  456 1374 (N23E37 L=303)  2283    419        2 ( 287/1237- 574/1457) -16.5 E54-E27 N14-N30
      7  921 1367 (N20E04 L=336)   310     96        1 ( 887/1334- 958/1410) -59.0 E06-E02 N17-N22
      8  159 1288 (N21E69 L=272)   582     58        1 ( 147/1254- 173/1324) -76.0 E72-E65 N18-N22
      9 1650 1258 (N09W43 L= 23)   314     37        1 (1624/1234-1674/1283) -71.6 W40-W44 N07-N10
     10 1132 1232 (N10W08 L=348)   366    182        0 (1051/1208-1214/1258) -24.0 W03-W12 N07-N11
     11 1356  872 (S13W20 L=360)   901    325        2 (1286/ 711-1415/ 999)  62.1 W14-W23 S22-S05
     12 1846  933 (S11W59 L= 40)   525     50        1 (1827/ 899-1875/ 957)  21.8 W57-W62 S13-S09
     13  755  846 (S11E18 L=323)   924    295        0 ( 688/ 738- 837/ 954)  47.5 E23-E11 S17-S04
     14 1114  716 (S21W04 L=344)   223     44        1 (1091/ 692-1138/ 736) -45.0 W02-W05 S22-S19
     15 1128  647 (S26W04 L=345)   241     84        0 (1091/ 618-1154/ 685)  38.7 W01-W06 S27-S23
     16  921  586 (S28E10 L=330)   323     88        1 ( 905/ 544- 936/ 636)  71.6 E11-E08 S30-S24
     17  321  544 (S26E60 L=280)   668    123        2 ( 305/ 477- 338/ 601)  58.0 E64-E56 S30-S22
     18  867  469 (S36E16 L=324)   481    136        0 ( 799/ 430- 924/ 507)  20.0 E21-E10 S38-S33
     19  565  390 (S39E44 L=296)  1093    216        0 ( 503/ 362- 655/ 462) -28.6 E49-E35 S41-S33
  

    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