Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  892 1609 (N36E19 L= 77)  1484    315        4 ( 841/1502- 931/1707) -49.4 E27-E15 N28-N42
      2  558 1579 (N29E43 L= 53)  1433    439        5 ( 493/1454- 623/1696) -33.7 E55-E34 N20-N35
      3 1700 1558 (N46W51 L=148)  1222    256        3 (1659/1518-1741/1601)  31.0 W44-W59 N41-N50
      4  274 1430 (N15E64 L= 33)  2933    455        5 ( 227/1300- 315/1530) -40.9 E72-E55 N07-N20
      5 1139 1341 (N21W03 L= 99)   316    117        2 (1114/1282-1152/1401) -76.0 W00-W04 N17-N25
      6  920 1328 (N17E11 L= 86)   517    215        0 ( 847/1269- 960/1398)  63.4 E14-E07 N13-N21
      7  677 1295 (N12E26 L= 71)   346     98        0 ( 643/1255- 706/1334) -26.6 E28-E22 N10-N14
      8  492 1215 (N05E37 L= 60)   333    112        1 ( 436/1194- 538/1241)  29.7 E40-E33 N02-N06
      9 1550 1145 (N15W32 L=129)   527    109        2 (1514/1101-1576/1184)  51.3 W30-W34 N11-N16
     10 1290 1079 (N07W16 L=112)   502    186        1 (1251/ 973-1321/1153) -59.0 W12-W18 N01-N11
     11  298  915 (S16E49 L= 47)   321     72        1 ( 277/ 884- 319/ 941)  53.1 E51-E47 S18-S14
     12 1160  800 (S11W11 L=108)   265    106        0 (1128/ 777-1215/ 839) -15.9 W08-W15 S12-S09
     13 1550  687 (S13W40 L=136)   697    142        3 (1506/ 645-1578/ 727) -29.7 W35-W42 S15-S10
     14 1231  469 (S32W24 L=120)   251     61        1 (1199/ 448-1251/ 495)  18.4 W21-W25 S33-S29
     15  765  455 (S40E11 L= 86)   530    124        1 ( 700/ 440- 812/ 478)  16.7 E16-E06 S42-S37
  

    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