Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1661 1537 (N34W54 L= 87)   853     98        2 (1623/1498-1693/1575) -45.0 W50-W55 N31-N36
      2  502 1481 (N34E39 L=354)   946    215        1 ( 436/1435- 588/1525) -18.4 E46-E31 N30-N36
      3  344 1283 (N20E49 L=344)  2948    665        7 ( 217/1090- 432/1440) -38.9 E66-E39 N08-N29
      4  892 1386 (N27E08 L= 25)   335     77        0 ( 848/1373- 937/1402)   9.5 E11-E05 N26-N28
      5 1478 1304 (N20W32 L= 65)   224     58        1 (1450/1282-1504/1325) -45.0 W29-W33 N18-N21
      6 1752 1245 (N15W54 L= 87)   843    202        2 (1678/1171-1787/1310) -48.4 W47-W56 N09-N18
      7 1090 1196 (N14W04 L= 38)   327    109        0 (1037/1157-1142/1247) -39.8 W01-W07 N11-N17
      8 1497  979 (S00W30 L= 64)   336    107        1 (1452/ 946-1551/ 997)   0.0 W27-W34 S02-N00
      9  453  915 (S02E38 L=355)   329     73        0 ( 427/ 896- 486/ 941)  11.3 E40-E35 S03-N00
     10  727  835 (S07E19 L= 14)   443    103        0 ( 669/ 809- 779/ 862) -23.2 E22-E15 S08-S05
     11  346  691 (S17E50 L=344)  1014    261        2 ( 312/ 609- 389/ 794)  53.1 E55-E44 S22-S10
     12 1616  668 (S21W41 L= 74)   433    171        0 (1548/ 655-1677/ 679)  -5.2 W35-W46 S21-S19
     13 1386  576 (S26W24 L= 58)   588    102        0 (1334/ 561-1438/ 594)   0.0 W20-W28 S26-S24
     14  544  528 (S28E36 L=357)   889    180        1 ( 493/ 492- 609/ 561)  24.4 E41-E30 S30-S25
  

    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